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Preface 


In  many  areas  of  the  Air  Force,  personal  computers  are 
purchased  and  sit  unused,  or  used  inefficiently.  One  area 
of  concern  is  in  the  Base  Supply  Training  Section.  This 
section,  commonly  undermanned,  is  responsible  for  performing 
and  tracking  large  quantities  of  training.  With  the  common 
availability  of  a  personal  computer,  this  section  could 
benefit  from  the  use  of  a  training  management  information 
system.  One  purpose  of  this  research  was  to  find  such  a 
system.  A  second  objective  was,  if  no  satisfactory  system 
could  be  found,  to  design  a  system  that  would  meet  the  needs 
of  the  supply  training  monitors.  The  result  of  the  first 
objective  were  dismal,  but  not  surprising.  The  results  of 
the  second  objective  was  very  successful  and  consequently 
provided  the  supply  community  with  a  useable  training 
management  system. 

Throughout  my  research  effort,  several  individuals 
provided  me  with  the  moral  support  and  direction  necessary 
to  finish,  Lt  Colonel  Bruce  Christensen,  my  advisor, 
without  whom  this  thesis  could  not  have  been  possible.  Many 
thanks,  sir.  I  would  also  like  to  thank  Mr.  Mitchell 
Rogers  and  Ms.  Jody  Taylor,  both  of  whom  provided  several 
ideas  to  enhance  my  final  system  design.  Last,  but 
certainly  not  least,  I  wish  to  thank  my  wife  Peggy,  and  my 
kids,  Mandy  and  Trey,  for  their  complete  understanding  and 
support  through  some  trying  times.  I'm  back  guys. 


Herbert  Phillips,  Jr. 
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Abstract 

Supply  squadron  training  monitors  have  before  them  an 
enormous  task;  to  monitor,  maintain,  and  schedule  large 
numbers  of  base  and  squadron  personnel  for  many  different 
training  requirements.  Included  in  these  training 
requirements  are  customer  block  training,  ancillary 
training,  on-the-job  training,  mobility  training,  and 
various  other  unit-level  miscellaneous  training  areas.  The 
old  method  of  managing  these  requirements  via  cards  and 
manually  generated  rosters  has  quickly  become  obsolete. 

One  purpose  of  this  study  was  to  search  for  a  training 
management  information  system  that  would  alleviate  the 
time-consuming  tasks  associated  with  training  management. 

A  second  objective  was,  if  no  satisfactory  system  could  be 
found,  to  design  a  system  to  meet  the  needs  of  the  supply 
training  monitors. 

Extensive  interviews  were  performed  with  supply 
training  monitors  and  MAJCOM  training  managers  in  search  of 
a  system  already  in  existence  and  gathering  information  for 
the  possible  development  of  such  a  system.  Since  no 
satisfactory  system  could  be  found,  a  supply  training 
management  system  was  designed  and  programmed  in  dBase  III 
Plus.  The  resulting  system  was  successfully  evaluated  and 
should  provide  the  supply  community  with  a  usable  training 
management  tool . 

vi  i 


SUPPLY  TRAINING  MANAGEMENT  INFORMATION  SYSTEMS 


I.  Introduction 


General  Issue 

Supply  squadron  training  monitors  have  before  them  an 
enormous  task.-  to  monitor,  maintain,  and  schedule  large 
numbers  of  base  and  squadron  personnel  for  many  different 
training  requirements.  According  to  Air  Force  Manual  (AFM) 
67-1,  Volume  II,  Part  Two,  Standard  Base  Supply  System,  the 
training  section,  LGSPT,  is  responsible  for  scheduling, 
training,  and  monitoring  all  Base  Supply  customer  training, 
all  training  for  supply  computer  operations  personnel, 
supply  training  to  supply  personnel  assigned  outside  the 
supply  complex,  and  training  for  supply  inspection 
personnel.  (11:2.53-2.55).  In  addition  to  these 
responsibilities,  the  training  section  is  responsible  for 
managing  and  monitoring  the  supply  squadron  on-the-job  (OJT) 
training  program  and  usually  the  squadron  ancillary  training 
program  (11:2.53).  For  a  squadron  of  over  200  people,  and  a 
base  population  over  1000,  the  job  of  scheduling,  training, 
and  monitoring  is  a  difficult  and  time-consuming 
undertaking.  As  more  and  more  training  is  required  of  Air 
Force  personnel,  the  old  method  of  pencil  and  paper  tracking 
has  quickly  become  obsolete.  Although  squadrons  are  allowed 


to  use  computer-based  programs  to  track  and  monitor 
personnel  training,  there  exists  no  standardized,  automated 
method  to  perform  the  multitude  of  tasks  required  of  supply 
training  monitors  (9:5;  1:1).  To  alleviate  some  of  the 
time-consuming  aspects  of  the  training  monitor's  duties,  the 
Air  Force  Logistics  Management  Center  (AFLMC)  has  begun 
searching  for  new  methods  to  improve  scheduling  and  tracking 
capability  at  squadron  level  (2).  The  AFLMC  is  hoping  to 
find  an  automated  system,  applicable  tc  the  training 
section,  that  will  efficiently  satisfy  the  needs  of  the 
supply  training  monitors. 

The  difficult  task  facing  supply  training  monitors  can 
best  be  summed  in  the  problem  statement. 

Research  Problem 

Supply  squadron  training  monitors  currently  have  no 
standardized,  efficient  method  of  tracking  and  scheduling 
the  large  array  of  training  requirements  for  squadron  and 
base  personnel. 

Before  examining  the  speci'ic  objectives  of  this  study, 
it  is  important  to  have  a  common  base  of  understanding . 

This  common  base  will  be  provided  through  several  technical 
definitions  which  will  be  used  throughout  this  report. 

Definition  of  Terms 

1.  Application  programming  —  the  act  of  designing  a 
user-specific,  application-specific  program  using  the 
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computer  language  provided  with  certain  computer  software 
packages.  The  program  developed  is  usually  confined  to 
operating  within  the  software  package  environment. 

2.  Management  Information  System  (MIS)  —  a  computer 
based  system  that  transforms  raw  data  into  meaningful 
information,  used  by  a  manager  as  an  aid  in  decision-making. 

3.  Menu-driven  —  a  phrase  used  to  describe  software 
packages  that  use  a  screen  menu,  or  combination  of  screen 
menus,  to  aid  the  user  in  understanding  the  software  and  to 
facilitate  successful  operation. 

4.  Microcomputer  —  any  computer  that  is  designed  to 
be  IBMr  PC  compatible  and  which  uses  Microsoft  Disk 
Operating  System  (MSDOSr) . 

5.  Software  Package  —  a  computer  program  designed 
with  a  specific  operating  purpose;  e.g.,  statistics  package, 
word  processing  package,  database  management  package. 

6.  User-friendly  —  a  computer  term  used  to  describe  a 
computer  program  "...  with  features  that  acknowledge  human 
factors"  (27:2).  Programs  considered  user-friendly  are  easy 
to  use,  easy  to  learn,  and  prepared  for  user  errors  (27:2). 

Research  Justification 

The  justification  for  this  particular  research  lies  in 
the  need  for  a  computer  automated  system  for  supply  training 
monitors.  This  system,  whether  it  is  already  in  existence 
in  the  commercial  or  government  sector,  or  newly  designed, 
should  increase  productivity  and  reduce  the  number  of 
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man-hours  spent  on  training  management,  as  computer 
automation  has  in  other  fields  (19:82).  As  the  Air  Force 
enters  an  era  of  tightened  budgets  and  reduced  manpower 
resources,  any  new  method  or  new  use  of  existing  technology 
should  be  researched.  Through  working  "smarter"  and  using 
technology  to  its  utmost  capability,  the  Air  Force  will 
continue  to  meet  today's  obstacles  and  the  challenges  of  the 
future . 

Research  Objectives 

The  principle  objective  is  to  find  currently  available 
software  packages,  both  government-owned  and 
commercial ly-avai lable ,  that  will  satisfy  the  needs  of 
supply  squadron  training  monitors.  If  no  satisfactory 
software  package  exists,  a  secondary  objective  is  to  design 
and  develop  a  microcomputer-based  training  management 
information  system  for  supply  squadron  commanders  and  their 
training  monitors.  A  properly  developed,  user-friendly, 
sel f -document ing  system  should  increase  productivity  in  the 
training  section  and  provide  for  an  automated  retrieval  and 
scheduling  capability  at  squadron  level  (1:2). 

Research  Questions 

In  order  to  achieve  the  objectives,  the  following 
research  questions  must  be  answered. 

1)  What  methods  are  currently  being  used  by  Air  Force 
training  monitors  to  track/schedule  training  requirements? 
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2)  What  software  is  currently  available  for  training 


monitors  to  use? 

a)  What  software  is  currently  available  in  the 
Air  Force  inventory? 

b)  What  software  is  currently  available  from  the 
other  military  services? 

c)  What  software  is  available  commercially  to 
satisfy  the  needs  of  the  training  monitors? 

3)  What  complaints  and/or  suggestions  do  users  of 
currently  available  software  have  about  their  product? 

4)  Which  training  requirements  would  be  applicable  to 
a  microcomputer-based  tracking  system? 

a)  What  kind  of  information  do  the  training 
monitors  want  to  extract  from  the  database? 

b)  What  reports,  currently  required,  do  the 
monitors  want  the  software  to  be  able  to  produce? 

5)  If  no  satisfactory  software  currently  exists,  what 
kind  of  training  management  information  system  (MIS)  could 
be  developed  from  software,  already  in  existence,  to  aid 
supply  squadron  training  monitors  in  the  accomplishment  of 
their  duties? 

Scope  of  Research 

This  study  will  address  the  problem  of  automating  the 
tasks  associated  with  monitoring  and  tracking  training 
requirements  for  a  Continental  United  States  (CONUS)  Air 
Force  supply  squadron.  In  addition,  since  initial  research 
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by  the  AFLMC  has  indicated  that  computer  automation  would 
prove  to  be  the  most  efficient  method,  manual  methods  such 
as  Gantt  chart  scheduling  will  not  be  addressed.  This 
research  will  be  limited  to  CONUS  supply  squadrons  because 
of  the  widely  varying  training  requirements  between  CONUS 
and  overseas  personnel.  Last,  the  search  for  software  and 
the  development  of  a  software  package,  if  necessary,  will  be 
aimed  exclusively  at  stand-alone.  International  Business 
Machines  (IBMr)  compatible  microcomputers ,  utilizing 
Microsoft  Disk  Operating  Systems  (MSDOSr) .  This  last 
limitation  is  necessary  since  this  is  the  standard  the  Air 
Force  supply  community  adheres  to  when  purchasing 
microcomputers  for  the  office  environment  and  to  ignore  it 
could  result  in  non-compatible  software  packages  (3) . 

The  literature  review  in  the  following  chapter  will  set 
the  groundwork  for  this  research.  A  discussion  of 
management  information  systems,  database  management  systems, 
and  the  resulting  increases  in  worker  productivity  from  the 
implementation  of  this  type  of  office  automation  system, 
will  provide  the  necessary  background  for  the  evaluation  and 
design,  if  required,  of  a  supply  training  management 
information  system. 
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Literature  Review 


II  . 


In  1966,  George  R.  Terry,  Ph  D.  wrote,  "Automation  In 
the  office  is  becoming  commonplace  and  .  .  .  advancing  into 
a  dominant  position  in  performing  office  work"  (3Q:v). 
Reading  Terry’s  remark  today  seems  like  an  extreme 
understatement  of  the  obvious.  In  1966,  however,  when  an 
electronic  computer  filled  a  space  the  size  of  a  room. 
Terry's  statement  was  probably  considered  unimaginable  by 
the  majority  of  the  business  community.  Today,  with  the 
numerous  advances  in  the  personal  computer  field,  office 
automation  is  more  than  commonplace;  it  is  necessary  to 
remain  competitive.  Office  automation  is  defined  as  the 
".  .  .  application  of  technology  to  tasks  which  were 
formerly  people-intensive  and  .  .  .  is  a  means  of  processing 

information  in  the  fastest  and  most  cost-effective  manner" 
(13:5).  Included  in  this  definition  are  management 
information  systems  (MIS)  and  database  management  systems 
(DBMS).  A  review  of  the  literature  concerning  each  of  these 
office  automation  systems  and  the  potential  applications  and 
benefits  of  each  will  be  provided.  A  major  concern  of  many 
software  and  system  users  is  the  concept  of 
user-friendliness.  The  way  a  computer  package  interfaces 
with  its  human  operators  sometimes  determines  the  ultimate 
success  or  failure  of  many  information  systems.  As  such,  a 
brief  review  of  the  literature  concerning  user-friendliness. 
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as  it  applies  to  DBM  Systems  and  MI  Systems,  will  also  be 
presented . 

The  concepts,  definitions,  applications,  and  potential 
benefits  of  DBM  Systems  and  MI  Systems,  as  well  as  the 
notion  of  user-friendliness,  will  provide  the  background  and 
knowledge  necessary  to  evaluate  potential  supply  training 
management  application  systems. 

Management  Information  Systems 

According  to  Henry  Lucas,  "The  purpose  of  an 
information  system  is  to  provide  and  interpret  data  to  aid 
in  the  decision-making  process"  (17:8).  Likewise,  James 
Senn  wrote  that  a  MIS  provides  "...  information  in  report 
form  on  a  regular  basis  to  assist  managers  with  decisions 
.  .  . "  (26:17).  These  two  descriptions  indicate  the 
importance  of  a  MIS  to  today’s  managers.  Throughout  a 
single  business  day,  managers  at  ail  levels  are  faced  with 
many  difficult  decisions.  A  wel 1 -developed  MIS  helps  the 
manager  make  well-informed  decisions  by  harvesting  the  raw 
data  involved  and  transforming  it  into  meaningful 
information  upon  which  operational,  managerial  control,  and 
strategic  planning  decisions  can  be  based  (17:9).  A  supply 
training  system  should  be  a  mixture  of  the  short  range 
operational  control  information  system  —  for  daily  tracking 
and  scheduling,  medium  range  determinations  of  potential 
class  sizes,  and  possibly  even  provide  a  smoothing  function, 
much  the  same  way  some  manufacturing  systems  smooth  product 
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demand  so  not  to  overload  or  under  use  production 
facilities.  Figure  1  provides  a  graphic  overview  of  an 
information  system,  with  respect  to  the  decisions  it  aids  in 
making.  In  addition  to  the  possible  smoothing  function, 
frequent  reports  provided  to  the  squadron  commander 
indicating  training  status  of  squadron  personnel  will  keep 
the  commander  better  informed  of  potential  problem  areas  and 
aid  in  the  making  of  training-related  decisions.  This  type 
of  benefit  is  all  too  common  in  the  management  literature  of 
today . 
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Figure  1.  An  Information-System  Framework 
(Reprinted  from  17:15) 


In  an  effort  at  controlling  the  steep  rise  in  medical 
costs,  hospitals  have  begun  implementing  MI  Systems  "... 
to  enhance  management  effectiveness"  (16:25).  Information 
systems  abound  in  today's  society.  Hotels  are  using  these 
systems  to  make  and  track  room  reservations,  while  the 
airlines  use  them  for  reservations  and  flight  planning 
(26:4).  In  the  military,  maintenance  activities  use 
information  management  systems  "...  to  gather  and  analyze 
data  regarding  system  component  failure  rates  ..." 
(32:14-9).  In  addition,  "[inventory]  forecasting  and 
financial  [budget]  management  activities  .  .  .  are  supports 

through  .  .  .  information  management  activities"  (32:14-9). 

The  Chicago  Police  Department  uses  information  management 
systems  to  produce  reports,  crime  summaries,  and  statistics 
which  are  "...  used  by  district  and  area  patrol 
supervisors  to  help  in  assigning  policemen  and  cars  to  high 
crime  areas"  (17:22-23).  The  systems  mentioned  each 
contribute  to  higher  productivity  and  more  effective 
utilization  of  manpower  in  the  operations  they  serve.  The 
justification  for  and  benefits  of  these  MI  Systems  lie  in 
their  ability  to  increase  the  capabilities  of  the  workplace 
without  a  resulting  increase  in  personnel  (19:32). 

One  of  the  basic  components  of  an  MIS  is  raw  data.  To 
handle  this  raw  data,  many  MI  Systems  are  using  database 
management  systems  to  organize  and  access  the  data  needed. 
Tsichritzis,  in  his  book  on  DBM  Systems,  indicated: 
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Although  a  DBMS  is  by  no  means  a  necessity  in  an 
in format  ion  system,  it  is  becoming  increasingly 
clear  that  a  DBMS  is  required  for  effective  data 
management  in  an  information  system  environment. 

(31:25) 

With  this  statement  in  mind,  the  following  section  presents 
a  brief  look  at  DBM  Systems  in  general,  their  applications, 
and  their  benefits. 

Database  Management  Systems 

A  database  management  system,  simply  put,  is  computer 
software  designed  to  create,  store,  update,  and  retrieve 
data  (14:187).  Alfred  Poor  of  PC  Magazine  wrote,  "One  of 
the  earliest  reasons  why  people  wanted  personal  computers 
was  to  handle  large  quantities  of  similar  data"  (22:109). 
This  remains  the  primary  reason  today.  When  businesses 
began  using  computer-oriented  data  managing  systems,  prior 
to  1970,  each  application  or  request  for  specific 
information  had  to  rely  on  its  own  data  files.  What  ensued 
was  duplication  of  similar  data  "...  stored  redundantly  in 
several  locations"  (4:4).  If,  for  example,  an  employee’s 
address  changed,  the  payroll  data  file,  the  personnel  data 
file,  and  any  other  data  file  that  contained  that  particular 
information  had  to  be  updated  separately.  It  is  apparent 
that  changes  to  the  same  information  in  several  locations  is 
".  .  .  wasteful  of  machine  and  human  resources"  and  " .  .  . 
difficult,  if  not  impossible,  to  ensure  that  changes  [are] 
always  entered  consistently  in  all  [data]  files"  (4:4). 
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From  these  and  other  problems,  database  management  systems 
emerged . 

,  ,  ,  to  facilitate  data  organization  and 
access.  They  serve  as  an  interface  between  the 
user  and  the  physical  copies  of  the  data.  Users 
specify  what  data  they  want  and  in  what  form. 

They  do  not  need  to  specify  where  the  data 
reside  or  how  to  get  them.  (31:29) 

Figure  2  depicts  the  relationship  between  databases  and  the 

database  management  system.  A  system  of  this  sort,  with  the 

relationships  shown  above,  has  many  applications  and 

benefits.  Libraries,  for  example,  have  welcomed  the  new 

management  tool  by  using  it  for  circulation  control  and 


Figure  2.  DBMS  Relationships 

(Adapted  from  31:25) 


cataloguing  (8:1).  As  previously  mentioned,  companies  are 
using  DBM  Systems  to  manage  their  payroll  records,  personnel 
records,  and  other  records  such  as  inventory  control  and 
accounts  receivable  (4:4).  The  3480th  Supply  Squadron, 
located  at  Goodfellow  Air  Force  Base,  Texas,  uses  a  DBMS  for 
personnel,  physical  fitness,  and  other  data  previously 
maintained  in  large  card  files.  The  automated  system  now 
provides  much  information,  previously  thought  to  be  too 
difficult  or  time-consuming  to  obtain.  The  University  of 
Toronto  utilizes  a  large  database  information  system  to 
manage  the  majority  of  the  university's  data.  Summary 
analyses  and  special  reports  provide  administrators  and 
faculty  with  much  needed  information  year-round  (31:7). 

A  supply  training  management  system,  using  the  data 
relationships  described  above,  should  also  be  capable  of 
achieving  similar  benefits.  Individual  data  files  could  be 
established  containing  personnel  data,  ancillary  training 
data,  on-the-job  training  data,  and  much  other  data  from  a 
wide  variety  of  sources.  Each  of  these  data  files  could 
subsequently  be  linked  via  a  DBMS.  The  DBMS,  driven  by 
specific  application  programs,  could  utilize  the  data  from 
several  of  the  databases  to  provide  comprehensive,  accurate, 
and  timely  information  to  the  training  monitor  and  squadron 
commander  to  aid  in  making  decisions  pertaining  to  training. 

To  evaluate  MIS  and  DBMS  packages,  several  criteria  are 
recommended  in  the  current  literature.  Power,  flexibility. 
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and  user-interface  are  some  of  the  more  important  MIS  and 
DBMS  aspects  to  be  considered.  State-of-the-art  technology, 
however,  has  made  the  distinction  between  packages,  in  the 
area  of  power  and  flexibility,  quite  difficult.  Many 
designers  have  added  features  to  their  software  to  the  point 
where  only  subtle  differences  exist  (22:109). 

User-interface  or  user-friendliness  remains  an  important 
criterion  in  evaluating  and  choosing  a  MIS/DBMS  package 
(4:47).  As  such,  the  following  section  will  address 
user-friendliness  as  it  pertains  to  MIS/DBMS  and  discuss 
some  of  the  more  important  aspects  to  consider. 

Usei — Interface  Considerations 

The  human-computer  interface  is  very  important  when 
designing  or  evaluating  a  computer  software  package. 

Program  control  and  documentation  are  two  features  to  be 
considered  (27:166,184).  Program  control  is  defined  as 
".  .  .  the  manner  in  which  the  operator  interacts  with  the 

computer  to  get  it  to  do  something"  (27:166).  Menu-driven 
software  control,  in  which  the  user  chooses  an  action  based 
on  a  pre-defined  menu,  is  one  of  the  more  popular  methods. 
Menus  are  easy  to  use  and  make  “ .  .  .  little  demand  on  human 
recall  memory  .  .  ."  (27:172).  Menu-driven  programs, 
therefore,  are  well-suited  to  beginning  users  and  users 
requiring  only  structured,  pre-defined  output  (27:172). 

Since  supply  training  monitors  are  not  required  to  have 
computer  experience,  a  menu-driven  software  package. 
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pre-conf igured  with  specific  output  stratifications,  would 
be  most  helpful . 

An  equally  important  consideration  in  the  selection  of 
DBMS/MIS  software  is  program  documentation.  The 
documentation  can  come  in  different  forms  such  as  user's 
guides,  tutorials,  and  on-line  help  screens.  Each  has  its 
own  advantages  and  disadvantages,  however,  user's  guides, 
tutorials,  and  on-line  help  screens  ",  .  .  should  be 

considered  complementary  rather  than  competing  alternatives" 
(27:193).  In  other  words,  each  form  of  documentation  serves 
a  particular  function  in  the  user's  learning  process  and 
should  be  present  to  achieve  user-oriented,  easy  to  learn 
computer  software.  Applying  the  above  documentation 
criterion  to  a  prospective  supply  training  management  system 
would  entail  having  on-line  help  facilities  to  explain 
program  use  and  possibly  output  stratification  options, 
including  a  user's  guide  also  explaining  program  use  in  more 
detail,  and  a  step-by-step  tutorial  to  help  new  users  become 
proficient  in  each  area  of  the  software  program. 

Conclusion 

As  the  use  of  management  information  systems  and 
database  management  systems  becomes  more  commonplace,  it  is 
imperative  that  managers  understand  their  applications  and 
benefits.  An  information  system  transforms  raw  data  into 
meaningful  information  that  can  then  be  used  by  managers  to 
make  well-informed  decisions.  Implementation  of  these 
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systems  usually  results  in  productivity  gains  and  increased 
capabilities.  In  the  3480th  Supply  Squadron,  mentioned 
previously,  to  find  out  which  of  the  squadron's  150 
personnel  were  under  the  age  of  21,  for  example,  took  a 
clerk  several  hours  of  searching  through  a  cardfile  to 
extract  the  information.  Now  with  their  current  MIS, 
utilizing  the  relationship  advantages  of  a  DBMS,  the  same 
task  t ^kes  only  seconds.  This  example,  though  small  scale 
in  nature,  indicates  the  immense  benefits  a  MIS  can  provide. 

Evaluating  anu  selecting  MIS/DBMS  software  is  a 
difficult  process.  Usei — interface  considerations  are  a 
major  concern  because,  if  the  prospective  users  have 
difficulty  using  the  software,  they  are  less  likely  to 
realize  maximum  benefits.  A  menu-driven  program,  in 
addition  to  the  existence  of  step-by-step  tutorials,  on-line 
help  screens,  and  a  detailed  user's  guide,  helps  to 
indoctrinate  the  novice  user  to  the  intricacies  and 
capabilities  of  a  software  package. 

Using  the  information  gathered  from  the  literature,  a 
more  knowledgeable  search  for  a  supply  training  management 
information  system  can  now  be  performed. 
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III.  Research  Methodology 


To  answer  and  solve  the  research  problem  of  locating  an 
efficient,  user-friendly  training  management  software 
package,  applicable  to  the  needs  of  a  base-level  supply 
training  section,  the  research  questions  mentioned 
previously  must  be  answered.  To  answer  these  questions, 
several  methods  will  be  used. 

Research  Question  #  1 

To  answer  what  methods  supply  training  monitors  are 
currently  using,  unstructured  interviews  with  four  supply 
training  monitors,  chosen  at  random  from  each  of  the 
following  CONUS  MAJCOMs,  MAC.  TAC,  ATC.  AFLC,  AFSC  and  SAC, 
will  be  conducted.  In  addition,  telephone  interviews  with 
Captain  Jeff  Bailey  and  Captain  Steve  Reynolds,  members  of 
the  AFLMC  supply  staff,  should  provide  the  overall  Air  Force 
"big  picture"  view. 

Research  Question  ♦  2 

The  answer  to  the  second  research  question,  what 
software  is  currently  available  for  supply  training  monitors 
to  use,  will  be  provided  through  a  combination  of  methods. 
Since  Air  Force  training  is  divided  into  several  areas 
(on-the-job,  ancillary,  and  supply  training),  each  with  its 
own  point  of  contact,  unstructured  telephone  interviews  will 
be  conducted  with  various  individuals.  A  summary  of  the 
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individuals  to  be  contacted,  their  position,  and  the 
specific  program  they  have  responsibility  for  is  listed  in 
Table  1.  In  addition  to  the  interviews  listed  in  Table  1.  a 
complete  search  of  the  Defense  Technical  Information  Center 
(DTIC)  database  and  the  Dial-a-Log  logistics  software 
bulletin  board  will  be  performed.  To  find  out  what  software 
the  other  services  use,  if  any,  unstructured  telephone 
interviews  with  personnel  at  both  the  U.S.  Army  and  U.S. 

Navy  Training  Centers  will  be  performed.  To  find  what 
training  management  software  is  available  commercially,  a 
current  literature  search ,  on  this  specific  topic,  will  b- 

Table  1.  Supply  Training  Points-of-Contact 


Name 

Office 

Area 

CMsgt  Alvin  LeBlanc 

Ti-aining  Management 
and  Development 
Section,  HQ  AFMPC 

Anci 1 lary/ 
OJT 

Training 

Mary  Edmasten 

Standard  Systems 
Center,  HQ  SSC 

Logistics 

Software 

CMSgt  Michael  Drain 

Supply  Management  and 
Procedures,  HQ  ATC 

ATC  Supply 
Training 

MSgt  Dave  Reese 

Supply  Management  and 
Procedures,  HQ  MAC 

MAC  Supply 
Tra l n i ng 

TSgt  Robert  Bowman 

Supply  Procedures  and 
Systems.  HQ  SAC 

SAC  Supply 
Training 

George  Grove 

Directorate  of 

Supply,  HQ  AFLC 

AFLC  Supply 
Tra i ning 

Capt  Graves 

Supply  Management  and 
Procedures,  HQ  TAC 

TAC  Supply 
Training 
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conducted.  The  scope  of  the  search  will  begin  with  the 
narrow  topic  of  training  management  software,  then  broaden 
to  training  software,  and  then  expand  to  the  broad  topic  of 
database  management  software. 

Research  Question  ♦  3 

To  determine  what  complaints  and/or  suggestions  .current 
users  have  about  their  product,  telephone  contact  will  be 
made  with  users  of  the  products  found  in  answer  to  Research 
Question  #  2. 

Research  Question  #  4 

To  answer  which  training  requirements  would  be 
applicable  to  a  microcomputer-based  tracking  system, 
unstructured  telephone  interviews  will  be  performed  with  the 
functional  training  manager  for  each  of  the  following 
programs:  ancillary  training,  on-the-job  training,  and  base 
supply  customer  training.  In  addition,  the  supply  training 
monitors,  previously  mentioned  under  Research  Question  #  1 
will  be  asked  for  their  opinions  as  to  which  requirements 
would  be  feasible  to  track  and  what  training-related  reports 
are  required  of  them. 


Research  Question  #  5 

The  final  research  question,  what  kind  of  supply 
training  management  information  system  could  be  developed  if 
no  satisfactory  package  currently  exists,  will  be  answered 
by  designing  and  developing  a  DBMS-based  application 
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program.  This  system  will  then  be  partially  field  tested  at 
the  2750th  Logistics  Squadron,  Supply  Training  section, 
located  at  Wr ight-Patterson  Air  Force  Base,  Ohio.  After 
changes,  if  necessary,  are  made,  the  MIS  will  be  made 
available  to  the  AFLMC  for  complete  testing  and  evaluation 
prior  to  implementation. 

Justification 

The  main  method  to  be  used  to  gather  data  in  this 
research  study  is  unstructured  telephone  interviews.  It  was 
decided  this  form  of  interview  will  provide  more 
comprehensive  answers  to  the  questions  presented.  In 
addition,  the  questions  themselves  will  not  have  to  be 
limited  to  pre-designated  forms,  as  in  the  case  of  written 
surveys.  Sample  questions  that  will  serve  as  a  guide  are 
presented  in  Appendix  A.  The  telephone  will  be  used  as  the 
main  source  of  communication  and  contact  with  prospective 
respondents  mainly  because  of  the  unstructured  questions  to 
be  asked  and  the  prohibitive  cost  of  traveling  to  the 
various  locations  mentioned  above.  The  data  gathered  from 
the  interviews  will  mainly  be  personal  opinions  of  experts 
in  the  field  of  Air  Force  training.  These  opinions  will 
provide  a  pool  of  information  from  which  conclusions  can  be 
drawn . 
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IV.  Findings  and.  Discussion 

Observing  the  methodology  presented  in  the  previous 
chapter,  the  following  information  was  gathered  to  answer 
the  research  questions  and  satisfy  the  research  objective. 

Research  Question  #  1 

What  methods  are  currently  being  used  by  Air  Force  supply 
training  monitors  to  track  and  schedule  training 
requirements? 

Of  the  supply  training  monitors  interviewed,  75  percent 
indicated  they  were  using  a  manual  type  tracking  system. 

The  specific  manual  systems  varied  from  card  files  to  log 
books.  The  other  25  percent  stated  they  were  currently 
using  a  computer  based  system.  Specific  systems  found 
included:  dBase  III+,  Word  Perfect  word  processor.  Enable, 
Condor  III,  and  a  user-developed  package  entitled.  Base 
Supply  Customer  Training  System.  An  evaluation  of  each 
system  will  be  presented  later. 

Research  Question  #  2 

What  software  is  currently  available  for  training  monitors 
to  use? 

Telephone  interviews  with  the  persons  responsible  for 
each  category  of  training  (see  Table  1)  met  with 
disappointingly  negative  results.  In  each  case,  the 
training  managers,  both  Air  Force  and  at  the  MAJCOM  level. 
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did  not  have  an  automated  program  for  their  monitors  to  use. 
Several  did,  however,  refer  to  software  programs  released  by 
the  AFLMC .  The  specific  comments  on  the  software  will  be 
discussed  in  answer  to  Research  Question  #3. 

Research  Question  #  2. a. 

What  software  is  currently  available  in  the  Air  Force 
inventory? 

A  thorough  search  of  DTIC  and  Dial-a-Log  was  pei^formed 
and  discovered  two  Air  Force-owned  software  packages:  PATS 
and  SMART,  both  developed  at  the  AFLMC.  In  addition,  during 
the  training  monitor  interviews,  a  usei — developed  software 
package  was  found.  Each  is  discussed  below  beginning  with 
PATS. 

Personnel  Automated  Training  Schedule  Program  (PATS) . 
The  PATS  program  was  developed  at  the  AFLMC  in  February 
1986.  PATS  is: 

.  .  .  a  computer  program  that  runs  on  a 
Zenith  Z-100  or  Z-248  microcomputer.  The  program 
tracks  and  schedules  any  training  requirements, 
appointments,  etc.,  that  recur  on  a  regular 
calendar  basis,  or  are  one-time  requirements. 

(20: Inside  Cover) 

The  program  was  designed  for  Reserve  military  units  to 
",  .  .  build  a  training  schedule  for  their  drill  weekends, 
when  most  of  the  training  is  done  by  part-time  personnel" 
(20: Inside  Cover).  In  addition,  active  military  units  can 
use  the  program  .  .to  track  and  monitor  their  recurring 
training  requirements  and  to  build  a  schedule  for  training" 
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(20: Inside  Cover) .  The  program  has  several  features 
including. 

.  .  .  identification  of  current  and  overdue 

requirements  for  each  individual,  or  workcenter; 
visibility  over  the  number  of  [training]  slots 
required  for  each  course  code  during  specified 
time  frames;  generation  of  training  schedules  by 
individual,  workcenter,  or  entire  unit;  and 
generation  of  course  rosters  for  each  course 
scheduled.  (20: i) 

The  program  was  specifically  designed  for  Reserve  aircraft 
maintenance  units  and  is  available  from  MAJCOM  training 
managers  (20:i). 

Supply  Mobility  and  Recurring  Training  (SMART).  The 
second  package  discovered  was  the  Supply  Mobility  and 
Recurring  Training  program.  The  SMART  program  was  also 
developed  by  the  AFLMC  in  April  1987.  The  program  is 
basically  a  modification  of  the  code  used  in  the  PATS 
program  (1:1).  The  SMART  program  is  intended  "for  squadron 
level  supply  managers/schedulers  [and]  .  .  .  is  a  tool  for 

fast,  accurate  schedule  development.  .  . "  (27:5).  However, 
the  program  is  limited  in  capability  and  lacks  in  the  area 
of  user  friendliness  (21) .  The  SMART  program  is 
menu-driven;  however,  it  uses  codes  to  identify  courses, 
workcenters,  and  personnel  (28:5).  That  means  users  will 
have  to  learn  the  multitude  of  codes  to  efficiently  use  the 
software.  In  February  1989,  an  error  was  discovered  in  the 
SMART  computer  code  that  "caused  the  program  to  mix  up 
employee  numbers"  and  a  "fix"  was  distributed  by  the  AFLMC 
to  correct  the  problem  (23) .  The  program  has  been 
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distributed  to  the  MAJCOM  training  managers  and  is  available 
on  request. 

Base  Supply  Customer  Training  System  (BSCTS) .  The 
third  package  discovered  is  a  dBase  III  application  program 
written  by  Mr.  Mitchell  Rogers  of  the  63rd  MAW  Supply 
Training  Section,  Norton  Air  Force  Base,  California.  In  the 
words  of  the  author,  the  program  was  "designed  to  save 
man-hours  and  keep  better  control  of  attendance  records" 
(24:1).  Features  include  an  automated  report  facility  that 
prints  the  annual  training  report  required  by  AFR  50-1, 
Ancillary  Training  Program.  In  addition,  the  program  gives 
the  user  the  added  capability  to  track  training  no-shows, 
and  send  no-show  letters.  Another  useful  feature  is  the 
menu  option  to  print  an  attendance  roster,  prior  to  the 
actual  class,  for  the  attendees  to  initial.  The  program  is 
menu-driven  and  has  a  user's  guide  that  shows  examples  of 
and  some  instructions  for  the  various  screens  users  will 
encounter.  One  limiting  factor  of  the  program  is  that  the 
software  creates  a  separate  data  record  each  time  a  person 
is  trained  in  a  particular  course  which  duplicates  data  and 
enlarges  the  databases  unnecessarily.  Also,  the  user 
friendliness  of  the  program,  in  the  area  of  on-line  help 
facilities  and  screen  presentation,  could  be  enhanced  with 
minor  modifications.  Considering  each  of  the  above 
comments,  the  program  is  an  excellent  automated  system  for 
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tracking  Base  Supply  Customer  Training  and  the  author  should 
be  commended  for  his  initiative. 

Research  Question  #  2.b. 

What  software  is  currently  available  from  the  other  military 
services? 

Interviews  were  performed  with  personnel  involved  in 
U.S.  Army  and  U.S.  Navy  training.  The  Army  indicated  that 
all  training  is  tracked  at  company  level,  where  computers 
are  not  available.  Given  the  nonexistence  of  computers,  all 
Army  training  is  maintained  manually  on  cards  (5).  The  Navy 
provided  a  similar  response  indicating  that  there  is  no 
standard  Navy-wide  computer  package  available  and  that  most 
Navy  training  is  performed  at  division  level,  where  it  is 
tracked  via  cards  or  notebooks  (6;  18). 

Research  Question  #  2.c. 

What  software  is  available  commercially  to  satisfy  the  needs 
of  the  training  monitors? 

A  review  of  the  literature  for  commercial ly-avai lable 
"training  management-specific"  software  was  performed 
without  success.  However,  several  commercial  database 
management  packages  lend  themselves  to  specific  application 
programs,  such  as  training  management  (22:109).  A  database 
management  system,  by  definition,  is  software  designed  to 
create,  store,  update,  and  retrieve  data  (14:18).  This  data 
can  be  in  the  form  of  employee  identification  information. 


training  dates,  etc.  Since  specific  training  management 
software  packages  could  not  be  found,  a  review  of 
programmable  database  management  packages  was  performed. 

DataEase  Version  2.5.  DataEase,  Version  2.5,  is 
distributed  by  Software  Solutions,  Inc.  of  Trumbull, 
Connecticut.  For  a  $600  list  price,  the  buyer  receives  a 
powerful,  menu-driven,  database  management  system  that  is 
easy  to  install  and  works  well  on  either  hard  or  floppy  disk 
systems.  DataEase,  however,  is  somewhat  light  in  the 
documentation  aspect.  According  to  PC  Magazine’s  Alfred 
Poor,  "DataEase  is  the  lightweight  ...  in  the 
documentation  category"  (22:111).  Also,  in  the  area  of 
programming.  DataEase  has  "the  fewest  programming  commands 
of  the  [high-end  databases]",  however,  "...  you  can  do 
just  about  anything  that  you  want  to  do  .  .  ."  (22:113). 

Overall,  DataEase  received  a  good  rating  from  PC  Magazine 
and  was  determined  to  be  ",  .  .  the  product  of  choice  if  you 
are  looking  for  power  -  without  becoming  a  master 
programmer"  (22:117). 

R:base  System  V.  R:base  System  V  is  distributed  by 
Microrim  of  Redmond,  Washington,  and  lists  for  $700.  R.base 
provides  impressive,  menu-driven  facilities  for 
non-programmers  and  installs  easily  to  the  hard  drive.  This 
database  system,  however,  will  not  operate  on  floppy  drives 
because  of  its  size.  The  more  than  900  pages  of 
documentation  is  divided  into  a  learning  guide,  a  user's 
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manual,  and  a  building  applications/command  dictionary 
(22:111).  In  the  area  of  programming,  R:base  has  89 
commands  and  70  functions,  however,  "the  System  V  language 
takes  some  getting  used  to"  (22:113).  Overall,  R:base  also 
received  a  good  rating  from  PC  Magazine,  but  the  rating 
indicated  that  "System  V  is  slow,  and  the  programming 
features  are  limited  in  some  unlikely  places.  .  ."  (22:117). 

dBase  III  Plus  Version  1.0.  dBase  III  Plus,  Version 
1.0  is  distributed  by  Ashton-Tate  of  Torrance.  California. 

It  lists  for  $695  and  is  well-known  for  its  power  and 
flexibility  (22:112).  dBase  III  Plus  is  listed  on  the  Air 
Force's  Small  Computer  Standard  Contract  as  approved  for 
military  purchase.  The  new  pull-down  menus  gives  the  user 
"access  to  nearly  every  feature  in  the  dBase  III  system" 
(22:112).  The  system  installs  easily  on  a  hard  drive  and 
works  well  with  floppy-based  computers.  In  the  area  of 
programming.  dBase  III  Plus  outshines  its  competitors  by 
far.  It  has  153  commands  and  70  functions  and  comes  with 
more  than  1000  pages  of  documentation.  Overall,  PC  Magazine 
rated  dBase  III  Plus  as  its  "Editor's  Choice"  for  its  power 
and  flexibility,  built-in  program  generator,  and  excellent 
menu-driven  facilities  (22:117). 

Condor  III,  Version  2.20a.  Condor  III  database 
management  software  is  distributed  by  Condor  Computer 
Corporation  of  Ann  Arbor,  Michigan.  The  databases  of  Condor 
Corporation  have  long  been  the  standard  for  many  government 
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agencies.  Condor  III  is  flexible  and  easy  to  use  but  has 
limited  programming  capabilities.  It  has  a  built-in  report 
writer;  however,  the  reports  writer  program  is  "cumbersome 
to  use"  (12:141-142).  Condor  III  lists  for  $495  and  is 
also  identified  on  the  Air  Force's  Small  Computer  Standard 
Contract  as  approved  for  military  purchase  (12:142). 

Other  Database  Management  Packages.  A  review  of 
several  "low-end"  database  packages  was  also  performed. 
Low-end  means  that  the  prices  are  low,  programmability  is 
difficult  and  features  are  limited,  when  compared  to  the 
more  powerful  database  packages  reviewed  above.  Database 
packages  reviewed  included  PFS : Prof essional  File  by  Softwar 
Publishing  Corporation,  Q&A  Version  2.0  by  Symantec,  and 
PowerBase  Version  2.3  by  PowerBase  Systems  Inc . (12 : 119-133) 
While  each  package  has  its  advantages  (mostly  ease  of  use) 
the  limitation  of  power  and  programming  capability  tend  to 
exclude  these  packages  from  consideration  for  a  large  scale 
application  program  such  as  supply  training  management. 

Research  Question  #  3 

What  complaints  and/or  suggestions  do  users  of  currently 
available  software  have  about  their  product? 

This  question  was  difficult  for  the  various  users  to 
answer  because  after  a  system  has  been  in  use  for  awhile, 
problems  that  were  noted  in  the  beginning  are  forgotten  and 
work-arounds  established.  User's  comments  for  each  system 
found  are  listed  below  beginning  with  PATS  and  SMART. 
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PATS /SMART .  These  two  programs  are  grouped  together 
because  they  are  basically  the  same  program.  As  indicated 
earlier,  PATS  was  designed  for  Reserve  units  to  track 
recurring  training  and  SMART  is  just  a  modified  version  of 
PATS  tailored  to  supply  training.  To  answer  this  research 
question,  interviews  were  performed  with  each  CONUS  MAJCOM 
supply  training  manager.  Comments  received  were  far  from 
encouraging.  Each  manager  interviewed,  with  the  exception 
of  the  AFLC  manager,  indicated  the  program(s)  were  received 
by  their  office.  Complaints  recorded  include:  too  difficult 
to  use,  hard  to  understand,  not  user  friendly,  problems 
accepting  data,  didn't  accommodate  social  security  numbers, 
and  limited  capability.  As  far  as  actual  field  use,  the 
MAJCOM  training  offices  indicated  they  distributed  the 
software,  however,  weren't  sure  anyone  in  supply  training 
was  using  it.  One  supply  training  monitor  interviewed 
indicated  that  PATS  was  tried  and,  after  two  unsuccessful 
attempts  at  getting  the  program  to  work,  was  shelved. 

From  all  the  people  interviewed,  the  most  common 
complaints  can  be  synthesized  as  lack  of  user  friendliness 
and  difficulty  of  use. 

BSCTS .  The  author  of  this  system  indicated  he  knew  of 
no  one  using  his  software  other  than  himself,  however,  he 
did  provide  several  comments  on  improvements  which  are 
underway.  His  suggestions  on  improving  the  software 
included:  "fixing"  the  scheduling  module,  (program  currently 
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reschedules  everybody  for  every  class  whether  they  need  it 
or  not);  adding  the  organisational  code  for  each  equipment 
custodian  to  benefit  the  Equipment  Management  Section  (EMS) ; 
and  improving  the  no-show  notification  (25).  The  AFLMC 
reviewed  the  software  and  indicated  that  the  program  was 
good  but  for  their  purposes  needed  to  be  more  "generic"  and 
handle  more  than  just  BSCT  (3) . 

Other  Automated  Methods .  Included  in  this  category  are 
the  users  of  database  management  software,  spreadsheets .  and 
word  processing  packages.  The  users  of  the  above  systems 
generally  indicated  they  were  satisfied  with  their 
particular  systems.  Of  the  three  systems,  however,  only 
one — the  database  management  software,  provides  true 
automation  as  previously  defined.  The  user  of  the  database 
management  software  indicated  she  had  no  scheduling 
capability,  and  had  no  need  for  it  as  long  as  the  AF  Form 
2426.  Training  Request  Form,  was  required  by  regulation.  On 
this  note,  it  was  interesting  to  find  that  the  future  of  the 
AF  Form  2426  is  now  in  question  and  being  studied  by  the  Air 
Staff  for  possible  automation  or  deletion  (3) . 

Research  Question  #  4 

Which  training  requirements  would  be  applicable  to  a 
microcomputer-based  tracking  system? 

When  asked  which  training  requirements  could  be 
feasibly  tracked  with  an  automated  system,  the  supply 
training  monitors  responded  freely.  Their  responses  are 
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recorded  in  Tab  1  e  2.  The  replies  shown  above  indicate,  in 
the  opinion  of  the  supply  training  experts  polled,  ancillary 
training  and  Base  Supply  Customer  Training  are  training 
categories  that  could  be  effectively  and  efficiently  managed 
with  a  computer-based  tracking  system.  Mobility  training, 
although  receiving  a  slightly  less  favorable  response,  was 
also  believed  to  be  applicable  to  an  automated  system.  One 
relatively  negative  response  received  was  based  on  the 
difficulty  of  maintaining  an  automated  system  in  a 
mobi 1 ized-f orce  environment.  The  28  percent  favorable 
response,  or  72  percent  unfavorable  response,  received  by 
On-the-Job  Training  represents  the  relative  infeasibility  of 
automating  this  category  of  training.  Most  negative 
responses  cited  the  difficulty  of  keeping  an  OJT  system 
updated  and  the  large  number  of  changes  that  O.JT  undergoes. 


Table  2.  Training  Area  Feasibility  Responses 


TRAINING  AREA 
Ancillary  Training 
Supply  Customer  Training 
On-the-Job  Training 
Mobility  Training 


FAVORABLE  RESPONSE 
72  percent 
92  percent 
28  percent 
64  percent 
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Research  Question  #  5 

If  no  satisfactory  software  exists,  what  kind  of  training 
management  information  system  could  be  developed  from 
software,  already  in  existence,  to  aid  supply  squadron 
training  monitors  in  the  accompl ishment  of  their  duties? 

Based  on  the  interviews  conducted,  it. is  apparent  that 
supply  training  monitors  keep  track  of  far  more  than  just 
Base  Supply  Customer  Training.  In  fact  some  71  percent  are 
responsible  for  at  least  one  other  area  of  training  and  54 
percent  are  responsible  for  two  additional  areas  of 
training.  A  system  to  meet  the  needs  of  all  monitors  must 
be  able  to  accommodate  not  only  customer  training,  but  also 
the  wide  variety  of  Ancillary,  Mobility,  and  other 
miscellaneous  training  such  as  precious  metals  recovery  and 
computer  operations  training.  Of  the  systems  already  in 
existence,  none  meet  the  requirements  of  the  supply  training 
monitors  in  flexibility,  ease  of  use,  and  user  friendliness. 
Of  the  programs  reviewed,  the  BSCTS,  designed  by  Mitchell 
Rogers,  comes  the  closest  to  meeting  the  criteria 
established.  The  area  in  which  it  fails  is  flexibility. 

The  program  is  designed  for  customer  training  only  and  has 
no  facility  to  handle  training  data  other  than  customer 
block  training.  The  PATS/SMART  program,  while  highly 
flexible,  fails  miserably  in  the  areas  of  user  friendliness 
and  ease  of  use.  Based  on  these  results  and  the  interviews 
performed,  it  is  evident  that  no  currently  available 
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software  exists  that  will  meet  the  needs  of  supply  training 
monitors . 

The  design  of  a  system  which  is  flexible,  easy  to  use, 
user  friendly,  and  tailored  to  the  specific  needs  of  the 
supply  training  monitors  is  necessary.  Based  on  the  review 
of  commercial  database  software,  dBase  III  Plus  will  be 
used.  dBase  III  Plus  was  chosen  because  of  its  powerful 
programming  language,  its  built-in  reports  generator  and 
screen-form  designer,  it  is  already  widely  used  in  the  Air 
Force,  and  it  is  on  the  AF  Small  Computer  Contract. 

The  following  chapter  describes  the  software  program 
designed  and  developed  to  satisfy  the  data  collection  and 
information  system  needs  of  the  supply  training  monitors. 
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V.  Supply  Training  Management  Information  System  (STMIS) 

Initial  Design 

As  previously  mentioned,  dBase  III  Plus  was  used  to 
create  the  supply  training  information  system.  The  program 
was  written  using  the  built-in  database  programming  language 
of  dBase  III  and  uses  very  simple  coding  so  that  future 
changes  to  the  code  can  be  easily  performed.  The  technique 
used  was  that  of  modular  programming,  i.e.,  each  training 
area  was  built  separately  and  then  all  areas  tied  together 
with  menus.  This  modular  method  of  programming  will  allow 
updating  and  modifications  to  be  performed  without  changing 
the  entire  software  package.  To  meet  the  established 
criteria  of  ease  of  use  and  user  friendliness,  every 
function  in  the  STMIS  program  is  menu  driven,  and  on-line 
help  screens  serve  to  explain  each  menu  selection.  For 
flexibility,  STMIS  was  designed  specifically  for  the  supply 
training  monitor  and  as  such,  was  tailored  to  meet  the  basic 
needs  of  every  supply  training  monitor.  In  addition,  the 
program  will  accommodate  those  monitors  who  also  must  manage 
Ancillary  and  Mobility  training.  Furthermore,  a  special 
module  was  added  to  allow  further  flexibilty  for  those 
training  monitors  who  must  track  and  schedule  training  not 
included  in  any  of  the  above  categories.  Using  the  initial 
design  based  on  ideas  gathered  through  the  interviews  and 
training  regulation  research,  a  field  test  was  conducted  at 
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Wright-Patterson  Air  Force  Base  by  the  Chief  of  the  Supply 
Training  Section,  Ms.  Jody  Taylor. 

Results  of  Field  Evaluation 

The  initial  STMIS  program  was  evaluated  on  14  June 
1989,  using  a  test  database  included  with  the  program,  on  a 
Zenith  248  computer  located  in  the  Supply  Customer  Service 
and  Training  Section  at  Wright-Patterson  Air  Force  Base. 
Based  on  the  thorough  evaluation  performed  by  Ms.  Taylor, 
several  features  were  added,  some  revised,  and  others  fixed. 
A  discussion  of  the  changes  and  enhancements  suggested  by 
Ms.  Taylor  follows. 

In  the  initial  design,  facilities  were  built-in  to 
accomodate  creating  and  editing  data  files.  Because  of  the 
program  flow,  if  the  user  chose  the  CREATE/EDIT  option,  then 
he/she  had  no  choice  but  to  create  a  new  record  or  edit  an 
existing  record.  There  was  no  facility  to  allow  the  user  to 
simply  search  the  database  for  general  information.  Ms. 
Taylor  indicated  that  a  general  search  capability  was 
necessary  to  respond  to  requests  for  training  verification 
(29).  This  capability  was  added  in  the  final  code. 

An  area  that  needed  fixing  was  the  printing  capability 
of  each  module.  The  original  program  flow  assumed  that  all 
listings  and  reports  would  be  directed  to  a  printer.  With 
minor  modifications,  the  program  now  questions  the  user 
whether  or  not  the  output  should  be  directed  to  the  printer 
or  to  the  computer  screen. 


An  oversight  discovered  by  Ms.  Taylor  was  that  although 
the  program  had  the  capability  to  track  Block  III,  Equipment 
Custodian  Training,  test  scores,  there  was  no  facility 
available  to  directly  input  them  easily  (29).  To  accomodate 
this  request,  the  program  was  modified  to  accept  test  scores 
during  the  class  attendance  reconciliation  procedures. 

Another  enhancement  suggested  by  Ms.  Taylor  was  to  add 
several  reports  in  the  Miscellaneous  Training  Module  to 
print  a  list  of  all  personnel  with  a  given  training  (29). 
While  this  suggestion  is  worthwhile,  the  ever-growing  size 
of  the  STMIS  program  code  and  the  low  probability  of  need 
for  this  feature,  precluded  addition.  Just  as  a  note,  the 
program  will  allow  a  printout  as  described  by  Ms.  Taylor, 
but  requires  changing  the  training  frequency,  for  the 
training  in  question,  to  zero  days. 

Overall,  Ms.  Taylor  indicated  she  thought  the  program 
was  very  thorough  and  would  be  very  helpful  to  supply 
training  monitors.  Additionally,  she  said  the  ability  of 
the  program  to  calculate  and  print  the  annual  MAJCOM 
training  summary  would  save  much  time  from  the  old  method  of 
tallying  attendance  rosters  or  AF  Forms  2426  (29). 

After  the  evaluation,  the  program  code  was  modified  to 
include  the  changes  indicated  above.  The  program  code  for 
the  STMIS  is  located  in  Appendix  B.  The  final  design  of  the 
STMIS  program  and  its  capabilities  are  discussed  below. 
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Main  Menu  Module 


The  main  menu  module  connects  each  of  the  training  area 
modules  together  to  form  a  flexible  and  powerful  database 
system  that  will  meet  the  needs  of  supply  training  monitors. 
An  overview  of  the  STMIS  program  is  shown  in  Figure  3. 

The  STMIS  program  is  divided  into  three  training  areas: 
Base  Supply  Customer  training,  Ancillary  training,  and 
Miscellaneous  training.  Each  training  module  is  accessible 
from  the  main  menu  (shown  in  Figure  4)  and  will  subsequently 
be  discussed  in  more  detail.  In  addition  to  the  training 
modules  (options  3. 4, or  5),  a  program  configuration  option 
(6).  a  record  deletion  option  (7),  and  a  database  backup 
option  (8)  are  included  in  the  main  menu  selections.  The 


Figure  3.  Supply  Training  Management  Information  System 

Overview 


Figure  4.  STMIS  Main  Menu  Screen 

program  configuration  option  allows  the  users  to  set  the 
screen  colors  to  a  combination  most  pleasing  to  them  and 
allows  the  setting  of  the  class  building  number,  which 
prints  on  training  confirmation  notices.  The  record 
deletion  option  allows  the  training  monitor  to  selectively 
delete  records  from  the  database.  Deletion  would  be 
necessary  when  personnel  PCS.  retire,  or  separate  from  the 
Air  Force.  The  database  backup  option  allows  the  user  to 
automatically  backup  the  training  database  and  all  memory 
variable  files  to  a  floppy  diskette  for  safekeeping.  This 
last  feature  could  prove  to  be  a  lifesaver  in  case  of 
computer  malfunction  and  its  use,  as  often  as  possible,  is 
strongly  encouraged.  In  addition  to  the  menu  option  for 
backing  up  the  database,  the  EXIT  selection  (option  0)  has  a 
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safeguard  built  in  to  question  the  users  if  they 
inadvertently  try  to  exit  without  backing  up  the  data. 

Last,  the  main  menu,  like  all  of  the  training  module  menu 
screens,  provides  the  user  with  the  date  the  database  was 
last  updated  and  the  current  operating  date. 

Base  Supply  Customer  Training  Module 

The  supply  customer  training  module  is  designed  to 
track,  schedule,  and  monitor  supply  customer  training.  The 
main  menu  for  this  module  is  shown  in  Figure  5. 

Upon  reciept  of  the  AF  Form  2426.  indicating  an 
organization  wanting  to  schedule  a  person  or  persons  for 
training,  the  training  monitor,  after  deciding  on  the  class 
date,  will  input  the  individuals  name  and  class  information 
into  the  database  via  menu  option  5.  Schedule  Training.  A 
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BASE  SUPPLY  CUSTOMER  TRAINING  MODULE 

Nednesday,  July  12,  1989 

1.  MENU  OPTION  EXPLANATIONS 

4.  MANAGEMENT  REPORTS 

2.  CREATE/EDIT  RECORDS 

3.  SCHEDULE  TRAINING 

3.  SEARCH  DATABASE 

6.  MARK/PRINT  NO-SHOW 

0.  EXIT  TO  RAIN  MENU 

Last  Updatfi  Please  Enter  Your  Choice  0 

06/13/89 

Figure  5.  Base  Supply  Customer  Training  Module 

Main  Menu  Screen 
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confirmation  notice  can  then  be  produced  and  sent  to  the 
requesting  organization,  showing  class,  class  date, 
building,  and  the  trainee's  name.  The  confirmation  listing 
is  produced  via  menu  option  4,  Management  Reports  (see 
Figure  6) . 

Prior  to  the  class,  the  training  monitor  can  print  an 
attendance  roster  of  all  personnel  scheduled  to  attend.  The 
attendance  roster  is  initialed  by  the  trainees  attending  and 
is  produced  with  menu  option  4.  After  the  class,  the 
monitor,  using  the  initialed  attendance  roster,  can  mark  the 
no-shows  and  enter  Block  III  test  scores,  if  applicable. 

The  No-show  facility,  menu  option  6  (Figure  5).  will  then 
print  a  no-show  listing  which  can  be  sent  to  the  affected 
organizations.  No  further  entry  is  necessary  by  the 
training  monitor.  The  program  deletes  the  scheduled  date  of 


SUPPLY  CUSTOMER  TRAINING  HANA6EHENT  REPORTS  FACILITY 


07/12/69 


1.  EXPLANATION  OF  REPORTS 

4.  SCHEDULE  CONFIRMATION  NOTICE 

2.  CLASS  ATTENDANCE  ROSTER 

5.  EQUIPMENT  MANAGEMENT  REPORT 

3.  ANNUAL  TRAINING  REPORT 

0,  RETURN  TO  PREVIOUS  MENU 

SELECT  A  NUMBER  0 
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those  not  attending,  and  leaves  the  date  previously  entered 
when  initially  scheduled  for  those  that  did  attend. 

In  addition  to  the  reports  previously  mentioned,  an 
equipment  management  report  is  also  included  which  prints  a 
listing  of  all  personnel  trained  in  Block  III  and  their 
organizational  account.  The  listing  is  printed  in  account 
order  and  can  be  given  to  the  Equipment  Management  Section 
for  training  verification.  The  last  report  available  on  the 
management  reports  menu  is  the  Annual  Training  Summary,  as 
specified  in  AFP.  50-1.  STMIS  calculates  all  the  necessary 
hours/numbers  based  on  average  class  times  input  by  the 
user.  A  sample  training  summary  report  is  provided  in 
Figure  7. 

Ancillary  Training  Module 

The  Ancillary  Training  module  was  designed  to  aid 
supply  training  monitors  who  also  track  and  manage  the  unit 
Ancillary  Training  Program  (ATP).  According  to  CMSgt  Alvin 
LeBlanc,  Supervisor  of  the  Training  Management  and 
Development  Section  at  HQ  AFMPC,  a  new  AFR  50-1.  Ancillary 
Training  Program,  will  be  published  in  mid  1989  (15).  The 
revised  regulation  eliminates  the  use  of  the  AF  Form  991. 
Ancillary  Training  Card,  and  almost  eliminates  the 
requirement  for  unit  training  monitors  to  track  ancillary 
training  (10).  The  primary  responsibility  for  tracking  will 
be  placed  on  the  base-level  training  agency  responsible  for 
the  training,  e.g..  Base  Supply  for  Customer  Training. 
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Annual  Supply  Training  Sunary  CY  1989 

Category 

Block  I 

Block  I IA 

Block  I IB 

Block  HI 

Block  IV 

Total 

1  Officers 

14 

3 

3 

1 

3 

24 

Off  Hours 

98.0 

■a 

7.5 

7.0 

9.0 

130.0 

t  Enlisted 

12 

3 

3 

4 

HI 

23 

Enl  Hours 

84.0 

9.0 

■ 

2B.0 

3.0 

107.5 

1  Civilian 

m 

1 

B 

1 

— 

5 

Civ  Hours 

B 

3.0 

2.5 

7.0 

B 

22.5 

Total  ( 

27 

7 

7 

■1 

5 

52 

Tot  Hours 

189.0 

21.0 

17.5 

42.0 

15.0 

284.5 

Figure  7.  Sample  Annual  MAJCOM  Training  Summary  Report 

Disaster  Preparedness  for  Chemical  Training,  etc.  Although 
most  unit  level  responsibility  will  be  deleted,  unit 
training  monitors  will  still  be  required  to  insure 
unit-level  training  is  performed  and  tracked.  Unit-level 
training  includes  Physical  Security  training.  Communications 
Security  training,  etc  (7) . 

Since  several  areas  of  Ancillary  Training  will  still 
need  to  be  tracked  at  the  unit-level,  the  STMIS  Ancillary 
Training  module  is  designed  to  accomodate  those  courses. 

The  main  menu  screen  for  this  module  is  shown  in  Figure  8. 
Because  frequency  of  training  for  these  courses  varies  among 
units,  bases,  and  MAJCOMs,  menu  option  4,  DEFINE/VIEW 
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ANCILLARY  TRAINING  MODULE 


Wednesday,  July  12,  1989 


1.  PROGRAM  INFORMATION  4.  DEFINE/ VIEW  FREQUENCY 

2.  CREATE/EDIT  RECORDS  5.  MANAGEMENT  REPORTS 

3.  SEARCH  DATABASE  6.  MOBILITY  REPORTS 

0.  EXIT  TO  MAIN  MENU 

Last  Update:  Please  Enter  Your  Choice  0 

06/15/99 


Figure  8.  Ancillary  Training  Module  Main  Menu  Screen 

FREQUENCY,  allows  the  training  monitor  to  configure  the 
module  to  the  requirements  at  his/her  particular  base.  The 
Frequency  Current  Values  menu  screen  is  shown  in  Figure  9. 
With  this  screen  menu,  the  user  can  interactively  change  the 


training  frequencies  of  the  Ancillary  Training  courses 
shown.  The  frequency  values  are  then  used  by  STMIS  when  the 
Ancillary  Training  Management  Reports  option  is  chosen. 

Shown  in  Figure  10,  the  Management  Reports  facility  keys  off 
the  frequencies  input  previously  and  provides  "Training  Due" 
listings  of  all  personnel  within  one  month  of  their  training 
expiration  date.  Similar  to  the  above  menu,  the  Mobility 
Reports  option,  provides  reports  strictly  on  personnel 
assigned  to  a  mobility  position.  Although  not  required  by 
the  new  AFR  50-1,  it  is  assumed  unit  mobility  officers  will 
still  want  visibility  over  mobility  team  training.  Menu 
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ANCILLARY  TRAINING  FREQUENCY  CURRENT  VALUES  (IN  DAYS) 

1.  OPSEC 

180 

6.  EOR 

180 

2.  COMSEC 

365 

7.  SA/BC 

365 

3.  PHYSEC 

90 

8.  CMDTR 

180 

4.  TERRORISM 

365 

9.  TQT 

ISO 

3.  HUHINT 

365 

0.  EXIT  MENU 

NKICH  DO  YOU  HhNT  TO  CHANGE  ?  0 

Figure  9.  Ancillary  Training  Frequency  Current  Values 

Menu  Screen 


ANCILLARY  TRAINING  MANAGEMENT  REPORTS  FACILITY 


1.  PERSONNEL  DUE  COMSEC 

4.  PERSONNEL  DUE  HUMINT 

2.  PERSONNEL  DUE  PHYSEC 

5.  PERSONNEL  DUE  OPSEC 

3.  PERSONNEL  DUE  PRQT/TERRORISH 

0.  El IT  REPORTS  MENU 

SELECT  A  NUMBER  0 

Figure  10.  Ancillary  Training  Management  Reports 

Menu  Screen 


options  2. 3. 4, 5,  and  6  provide  "Training  Due"  listings  for 
the  major  mobility  training  courses.  In  addition,  menu 
option  1.  Mobility  Training  Data  Dump,  provides  a  listing  of 
all  mobility  personnel  and  all  mobility-related  training. 

The  menu  screen  for  the  Mobility  Reports  option  is  shown  in 
Figure  11. 

Miscellaneous  Training  Module 

The  two  training  modules  already  discussed  are  very 
specific  in  the  training  they  track  and  manage.  The 
Miscellaneous  training  module,  however,  gives  the  user  great 
flexibility  in  the  type  of  training  that  can  be  tracked. 

The  main  menu  screen  is  shown  in  Figure  12.  With  this 
module,  supply  training  monitors  can  track  a  wide  variety  of 


Figure  11.  Mobility  Training  Management  Reports 

Menu  Screen 
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HISCELLANEOUS  TRAINING  NODULE 

Wednesday,  July  12,  1989 

I.  PROGRAN  INFORMATION 

4.  DEFINE/ VIEW  HEADINGS/FREQ 

2.  CREATE/EDIT  RECORDS 

5.  MANAGEMENT  REPORTS 

3.  SEARCH  DATABASE 

0.  EXIT  TO  MAIN  NENU 

List  Update:  Please  Enter  Your  Choice  0 

06/15/89 

Figure  12.  Miscellaneous  Training  Module 
Main  Menu  Screen 

training.  Some  suggestions  include:  Precious  Metals 
Recovery  training,  and  various  workcenter-specif ic  training, 
such  as  Computer  Operations  training.  Like  the  Ancillary 
Training  module,  the  user  can  select  menu  option  4  to  define 
the  frequencies  of  recurring  training  and,  in  addition,  can 
define  the  headings  used  to  identify  the  miscellaneous 
training.  The  menu  option  4  menu  screen  is  shown  in  Figure 
13.  Sample  headings  and  frequencies  were  input  during 
program  design.  Like  the  other  two  modules,  the 
Miscellaneous  training  module  also  provides  management 
reports.  Because  the  specific  training  to  be  used  in  this 
module  is  not  known,  the  management  reports  are  limited  to 
"Training  Due"  listings  based  on  the  frequencies  defined  by 
the  user.  The  Reports  menu  screen  is  shown  in  Figure  14. 
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H1SCELLANE0US  TRAINING  HEADINGS/FREQUENCY  (IN  DAYS)  CURRENT  VALUES 


1. 

STDS  COND 

ISO 

6.  CRN  PREV 

365 

2. 

UCNJ 

363 

7.  CTRL  CNTR 

90 

3. 

DLVRY  TRK 

365 

8.  HURRICANE 

ISO 

4. 

PROT/PRES 

365 

9.  TYPING 

365 

5. 

TORNADO 

365 

0.  UNDEFINED 

365 

E.  EXIT  MENU 

WHICH  DO  YOU  WANT  TO  CHANGE  ?  E 

Figure  13.  Miscellaneous  Training  Heading/Frequency 
Current  Values  Menu  Screen 

The  data  entry  forms  u3ed  with  this  module,  a3  with  the 
other  modules,  are  shown  in  Appendix  C. 

The  STMIS  program,  as  designed,  meet3  all  established 
criteria  for  a  supply  training  management  system.  The 
modular  programming  technique  used,  coupled  with  the  power 
of  dBase  III  Plus  database  programmming  language  gives  the 
supply  training  monitor  a  powerful,  flexible — but  not  too 
generic,  easy  to  use,  and  usei — friendly  system  to  manage  the 
training  requirements  under  his/her  responsibility.  Once 
the  AFLMC  compiles  the  code,  writes  an  extensive  user's 
guide,  and  thoroughly  field  tests  the  program,  the  STMIS 
software  will  be  ready  for  distribution  (3).  Completely 
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|  MISCELLANEOUS  TRAINING  MANAGEMENT  REPORTS  FACILITY 

1.  PERSONNEL  DUE  STDS  CONO 

6.  PERSONNEL  DUE  CRN  PREV 

2.  PERSONNEL  DUE  UCMJ 

7.  PERSONNEL  DUE  CTRL  CNTR 

3.  PERSONNEL  DUE  DLVRY  TRK 

9.  PERSONNEL  DUE  HURRICANE 

4.  PERSONNEL  DUE  PROT/PRES 

9.  PERSONNEL  DUE  TYPING 

S.  PERSONNEL  DUE  TORNADO 

0.  PERSONNEL  DUE  UNDEFINED 

E.  EXIT  REPORTS  MENU 

SELECT  A  NUMBER  E 

Figure  14.  Miscellaneous  Training  Management  Reports 

Menu  Screen 

menu-driven  and  possessing  on-line  help  facilities.  STMIS 
will  allow  even  the  novice  computer  user  to  get  started 
right  away  managing  supply  training. 
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VI,  Conclusions  and  Recommendations 


Supply  training  monitors  are  responsible  for  scheduling 
and  tracking  the  training  for  large  numbers  of  squadron  and 
base  personnel.  The  old  methods  of  using  log  books, 
attendance  rosters,  and  card  files  to  manage  these  training 
requirements  are  inefficient  and  very  time-consuming.  The 
AFLMC .  seeing  the  need  to  automate  the  training  management 
function,  sponsored  this  study  to  "find"  a  system  that  would 
meet  the  needs  of  the  supply  training  monitors. 

To  achieve  this  objective,  the  study  was  divided  into 
two  stages.  First,  a  complete  search  was  performed  for 
current ly-avai lable  training  management  systems.  A  complete 
search  of  the  DTIC  database,  and  the  Dial-a-Log  logistics 
software  bulletin  board  was  performed  and  uncovered  two 
training  management  software  packages,  PATS  and  SMART. 
Interviews  with  the  persons  responsible  for  each  training 
area  were  performed  and  met  with  limited  success.  None  of 
the  managers  interviewed  had  established  standardized 
computer  packages  for  their  monitors  to  use,  however,  most 
referred  to  the  two  packages  mentioned  above.  Contact  with 
Army  and  Navy  training  personnel  indicated  the  use  of 
computers  to  track  training  requirements  didn't  exist  in 
these  services.  The  majority  of  training  for  personnel  in 
these  two  services  was  conducted  at  division-level  and 
maintained  by  the  of f icer-in-charge  in  log  books  or  with 
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cards.  Next,  a  search  for  commercial ly-avai lable  training 
management  systems  was  conducted  with  little  success. 
Although  no  training  management-specific  software  was  found, 
several  commercial  database  management  systems  were 
reviewed . 

Based  on  the  results  of  the  first  stage,  it  was  evident 
that  no  satisfactory,  flexible,  user-friendly  training 
management  system  existed  for  training  monitors  to  use. 

Based  on  the  review  of  commercial  database  management 
packages,  dBase  III  Plus  was  chosen  to  serve  as  the  building 
block  for  a  training  management  application  program  that 
would  meet  the  criteria  mentioned  above.  The  Supply 
Training  Management  Information  System,  STMIS,  program  was 
written  using  the  dBase  III  Plus  programming  language.  Many 
interviews  were  performed  with  supply  training  monitors 
across  the  United  States  to  gather  information  for  basic 
design  considerations. 

The  training  monitor  interviews  indicated  that  71 
percent  of  the  monitors  were  managing  training  areas  in 
addition  to  Base  Supply  Customer  training.  When  asked  which 
training  areas  would  be  applicable  to  automation,  the 
monitors  responded  almost  unanimously  that  supply  customer 
training  would  be  applicable.  Receiving  slightly  less 
favorable  responses,  but  still  a  significantly  large 
affirmation,  were  Ancillary  training  and  Mobility  training. 
On-the-Job  training  was  thought,  by  the  monitors  polled,  to 
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be  too  difficult  to  automate.  Based  on  the  information 
gathered  from  the  interviews,  an  initial  design  of  the  STMIS 
program  was  formulated  and  written. 

The  initial  design  of  the  STMIS  program  incorporated 
each  of  the  training  areas  indicated  by  the  training 
monitors  as  applicable  to  automation.  On-the-Job  training 
was  omitted.  To  make  the  program  easy  to  use  and  were  user 
friendly,  all  actions  required  of  the  user  are  accomplished 
through  menu  screens.  Several  possible  human  errors  were 
eliminated.  On-line  help  screens,  describing  menu  options 
and  use,  were  provided  to  eliminate  the  need  for  a  reference 
manual.  To  facilitate  updates  and  modifications,  each 
training  area  was  programmed  as  a  separate  program  module. 
Finally,  to  meet  the  criterion  of  flexibility,  a 
miscellaneous  training  module  was  incorporated  into  the 
STMIS  design  whereby  users  can  define  training  requirements 
not  covered  in  the  other  modules.  The  STMIS  program  was 
successfully  evaluated  by  a  supply  training  monitor  and 
minor  modifications  were  made. 

Through  the  success  achieved  herein,  a  designed  and 
tested  software  system  could  easily  be  duplicated  for  other 
areas  in  the  Air  Force.  With  the  common  availability  of  the 
personal  computer  in  Air  Force  offices,  many  time-saving 
programs  can  be  developed  to  aid  the  users  in  accomplishing 
their  duties.  A  few  suggestions  include  a  program  similar 
to  STMIS,  but  developed  for  base-level  trainers  to  track  the 
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training  for  which  their  office  is  responsible.  Further, 
since  several  of  the  trainers  interviewed  for  this  research 
indicated  their  mobility  program  was  handled  by  a  separate 
office.  A  more  extensive,  stand-alone  mobility  program 
could  prove  very  useful  to  those  mobility  trainers. 

Opportunities  abound  in  the  Air  Force  for  software 
packages  such  as  the  STMIS.  In  almost  every  facet  of  every 
job,  a  computer  program  could  be  developed  to  more 
efficiently  and  effectively  perform  the  job  at  hand. 
Computers  are  the  future  and  usei — specific  software  is  a 
must  to  fully  utilize  the  capabilities  brought  forth  by  thi 
amazing  machine. 


Appendix  A:  Sample  Questions  Used  in  Unstructured 
Interviews  with  Supply  Training  Monitors 

This  appendix  lists  several  sample  questions  that  were  used 
as  a  guide  during  the  unstructured  interviews  with  the 
Supply  Training  monitors.  Some  questions  may  have  been 
omitted,  and  some  questions  not  listed  may  have  been  used. 
The  questions  below  were  used  mainly  to  spark  conversation 
and  serve  as  a  memory  tickler  for  possible  questions  and 
areas  to  discuss. 

Demographic  Questions 

-  What  is  your  name? 

-  What  is  your  job  title? 

-  How  many  years  of  supply  experience  do  you  have? 

-  How  many  years  of  supply  training  experience  do  you  have? 

-  How  would  you  rate  your  personal  computer  experience? 
General  Questions 

-  What  training  requirements  does  your  section  track  and 
schedule? 

-  What  method  of  tracking,  manual  or  computer,  do  you 
currently  use? 

-  Which  training  requirements  do  you  think  would  be 
applicable  to  a  automated  system  of  tracking? 

If  Manual  System  is  Employed: 

-  What  type  of  manual  method  do  you  use? 

-  Have  you  tried  a  computer  tracking  system  before? 

-  How  many  training  reports  must  you  produce  annually 
requiring  the  training  information  you  keep? 

-  Do  you  have  a  computer  available  for  you  to  use? 
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-  Do  you  think  a  computer  tracking  system  would  be  helpful 
to  you? 


If  Computer  System  is  Employed: 

-  What  is  the  computer  program  you  are  currently  using? 

-  How  long  have  you  been  using  the  program? 

-  What  type  of  computer  are  you  using? 

-  If  program  was  developed  locally,  who  developed  it? 

-  Do  you  have  any  complaints  or  suggestions  to  improve  your 
current  package? 

-  How  many  training  reports  must  you  produce  annually 
requiring  the  training  information  you  keep? 
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Appendix  B:  Program  Code  for  STMIS 


This  appendix  contains  the  program  code  for  the  Supply 
Training  Management  Information  System  developed  as  a  result 
of  this  research  project.  The  program  is  divided  into  four 
basic  sections.  References  are  provided  below  for  each. 

Section  Page 

Main  Menu  Programs . 56 

Base  Supply  Customer  Training  Module  .  66 

Ancillary  Training  Module  .  90 

Miscellaneous  Training  Module  .  105 
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Main  Menu  Programs 


★ 

M 

k 

k 

★ 


Program . 

Author . 

Date . 

Description . 


STMIS.PRG 

Capt  Herb  Phillips  -  AFIT  Class  89S 
08/01/89 

Main  Menu  Screen  for  STMIS  Program. 


Set  Environment 


SET  SCOREBOARD  OFF 

SET  HEADINGS  OFF 

SET  TALK  OFF 

SET  BELL  OFF 

SET  STATUS  OFF 

SET  ESCAPE  OFF 

SET  CONFIRM  OFF 

USE  THESIS  INDEX  LASTNAME 

RESTORE  FROM  COLOR. MEM  ADDITIVE 

SET  COLOR  TO  &FC/&BC , R/W  + . &BDC 

LU-0 


*  Display  Main  Menu  options 


DO  WHILE  .T. 

CLEAR 

@2.  0  TO  18.79  DOUBLE 

@  3,  3  SAY  [SUPPLY  TRAINING  MANAGEMENT  INFORMATION 


SYSTEM] 

@  3,53  SAY  CDOW ( DATE ())+", 
" +LTRIM ( STR ( DAY (DATE ( ) ) .2))+" 
@  4,1  TO  4,78  DOUBLE 


"  +CMONTH  ( DATE  ())+'' 

" +LTRIM ( STR ( YEAR ( DATE () ) 


@  6.10 
@  8,10 
@  10.10 
@  12,10 
@  6,45 

@  8.45 

§  10,45 
@  12,45 
@  14,30 
IF  LU  <  1 

@16,3  SAY 
@17,4  SAY 
END  IF 


SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 


[1.  PROGRAM  INFORMATION] 

[2.  MENU  OPTION  EXPLANATIONS] 
(3.  SUPPLY  CUSTOMER  TRAINING] 
[4.  ANCILLARY  TRAINING] 

[5.  MISCELLANEOUS  TRAINING] 

[6.  PROGRAM  CONFIGURATION] 

[7.  DELETE  DATA  RECORDS] 

[8.  BACKUP  DATABASE  ON  FLOPPY] 
(0.  EXIT  WITHOUT  BACKUP] 


[Last  Update : ] 
LUPDATE ( ) 


.4)  ) 


se lectnum-0 
IF  LU  <  1 

SET  COLOR  TO  &FC*/&BC , R/W+ , &BDC 
END  IF 

@  16,63  SAY  "MAKE  SURE" 

@  17,60  SAY  "CAPS  LOCK  IS  ON" 

SET  COLOR  TO  &FC/&BC , R/W+ , &BDC 
@  16,27  SAY  "Please'  Enter  Your  Choice" 
@  16,54  GET  selectnum  PICTURE  "9" 

READ 

CLEAR 


56 


DO  CASE 

CASE  select. num  =  0 
CLEAR 

SET  COLOR  TO  &FCV&BC  .R/W+ .&BDC 

@4,22  SAY  "*************  WARNING  *************“ 

SET  COLOR  TO  &FC/&BC , R/W+ , &BDC 
TEXT 

YOU  HAVE  NOT  BACKED  UP  YOUR  DATABASE  ON 
A 

FLOPPY  DISKETTE.  IF  YOU  STILL  WISH  TO 

EXIT 

WITHOUT  CREATING  A  BACKUP  FILE.  PRESS 
Y. 

IF  YOU  WISH  TO  CREATE  A  BACKUP  FILE.  PRESS 

N. 

ENDTEXT 

@3,6  TO  13,74  DOUBLE 
?CHR  (007) 

@11,8  SAY  "  Do  you  wish  to  EXIT  without  backing  up  the 
database  (Y/N)  ?  " 

7 

? 

ANSWER  =  "  " 

@  11.72  GET  ANSWER  PICTURE  "Y" 

READ 

CLEAR 

IF  UPPER  (ANSWER)  -  "Y" 

CLEAR 

RETURN 

ELSE 

DO  BACKUP 
ENDIF 

CASE  selectnum  =  1 
DO  INFO.PRG 
LU  -  1 

CASE  SELECTNUM  -  2 
DO  INFOSTM3 . PRG 
LU  -  1 

CASE  selectnum  -  3 
DO  BSCT.PRG 
LU  -  1 

CASE  selectnum  -  4 
DO  ANCIL.PRG 
LU  -  1 

CASE  selectnum  *  5 
DO  MISC.PRG 
LU  -  1 

CASE  selectnum  -  6 
DO  CNFIG 
LU  -  1 

CASE  selectnum  ■  7 
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DO  PACK 

TJJ  =  l 

CASE  selectnum  =  8 
DO  BACKUP 

ENDCASE 

ENDDO 

RETURN 

*  EOF:  STMIS.PRG 

*  Program . :  INFO.PRG 

*  Description.:  Text  program  describing  the  STMIS  Program 

*  and  how,  when,  and  why  it  was  developed. 
CLEAR 

@  1.0  TO  3.79  DOUBLE 

@  2.18  SAY  (SUPPLY  TRAINING  MANAGEMENT  INFORMATION  SYSTEM] 
@  4.2  SAY  ‘  ’ 

TEXT 

Supply  Squadron  training  monitors  have  before  them  an 
enormous  task:  to 

monitor,  maintain,  and  schedule  large  numbers  of  base  and 
squadron  personnel 

for  many  different  training  requirements.  As  more  and 
more  training  is 

required  of  Air  Force  personnel,  the  old  method  of  pencil 
and  paper  tracking 

has  quickly  become  obsolete.  To  alleviate  some  of  the 
time-consuming  tasks 

associated  with  the  training  monitors  duties,  the  Air 
Force  Logistics 

Management  Center  (AFLMC)  at  Gunter  AFB  began  searching 
for  new  methods  to 

improve  scheduling  and  tracking  capability  at  squadron 
level.  The  research 

performed  for  an  Air  Force  Institute  of  Technology 
Master's  Thesis  served  as 

the  basis  for  this  system  design.  This  program  should 
provide  for  a  more 

efficient  method  of  tracking  and  scheduling  training 
requirements . 

Feedback  is  the  key  control  element  of  any  computer 
system.  If  you  have 

any  comments  or  suggestions  to  improve  this  software 
package,  please  contact 

the  AFLMC  at  AUT0V0N  446-4165.  Capt  tName  of  Program  Mgr> 
ENDTEXT 

@  1,0  to  21,79  DOUBLE 

WAIT 

CLEAR 

@  1.0  TO  3.79  DOUBLE 

@2.30  SAY  "NOTES  FROM  THE  AUTHOR" 

@  4,2  SAY  "  ” 
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TEXT 

The  STMTS  program  was  written  with  the  ultimate  user  m 
mind  —  the  Base 

Supply  Customer  Training  Monitor.  As  such,  the  program 
was  written  using 

modular  programming  techniques  which  separate  each 
different  training  area 

into  a  module  of  its  own.  Whether  you  are  responsible  for 
one ,  two ,  or 

three  of  the  areas,  the  program  should  prove  useful. 

The  program  was  also  written  with  the  intent  of  having 
the  user  need 

little,  if  any.  external  documentation  to  fully  use  the 
software.  Hopefully. 

you  will  find  this  to  be  true.  At  each  menu  screen  there 
is  an  option  to 

explain  each  function  accessible  with  that  particular 
menu.  This  option  will 

tell  you  what  each  option  is  for.  what  it  ices,  and  other 
informat  ion . 

Several  ideas  used  in  the  conceptual  phase  of  this 
programming  effort 

were  provided  by  Mr.  Mitchell  Rogers,  of  the  63rd  Supply 
Squadron.  Norton 

AFB.  CA..  of  whom,  the  author  would  like  to  express  his 
sincere  thanks. 

Author:  Captain  Herb  Phil  lies.  USAF.  AFIT  Class 

89S 

ENDTEXT 

&  1.0  TO  22.79  DOUBLE 

WAIT 

CLEAR 

*  EOF:  INFO.PRG 

*  Program .  INFOSTMS.PRG 

*  Description.:  Text  program  describing  the  main  STM IS  menu 
options 

CLEAR 

@  0.0  TO  2.79  DOUBLE 

h  1.13  SAY  [SUPPLY  TRAINING  MANAGEMENT  INFORMATION  SYSTEM 
( STMIS) ) 

0  3.2  SAY  '  ' 

TEXT 

3.  SUPPLY  CUSTOMER  TRAINING  -  Program  module  to  schedule, 
track,  and  manage 

Base  Supply  Customer  training  information.  In 
addition,  the  module 

allows  the  user  to  produce  several  reports. 

4.  ANCILLARY  TRAINING  -  Program  module  to  monitor 
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selected  An c i 1 1 a r y 

training  requirements.  Reports  include  "training  du 
1 l st l ngs . 

5.  MISCELLANEOUS  TRAINING  -  Program  module  to  monitor 
unit-specific  training 

requirements.  (e.g.  Control  Center  training,  etc.) 

6.  PROGRAM  CONFIGURATION  -  Allows  the  user  to  configure 
screen  color,  class 

building  number,  etc.  to  his/her  needs. 

7.  DELETE  RECORDS  -  Allows  deletion  of  records  when 
personnel  receive  PCS 

orders . 


8.  BACKUP  DATABASE  ON  FLOPPY  -  Provides  a  backup  of  the 
user's  database  on 

a  formatted  floppy  disk  placed  in  the  A:>  drive. 
ENDTEXT 

9  0.0  TO  22.79  DOUBLE 

WAIT 

CLEAR 

RETURN 

*  EOF:  INFOSTMS . PRG 

*  Program . :  CNF  I G.  PRG 

*  Description.:  Allows  user  to  configure  program  options. 
SET  STATUS  OFF 

SET  SCOREBOARD  OFF 
SET  TALK  OFF 
SET  BELL  OFF 
SET  CONFIRM  OFF 
SET  DELETED  ON 
SET  HELP  OFF 
SET  MENU  OFF 
SET  SAFETY  OFF 
DO  WHILE  .T. 

CLEAR 

0  3.28  say  "STMIS  CONFIGURATION  SCREEN" 

@  2.20  to  4.60  DOUBLE 
0  6.25  say  "1.  CHANGE  SCREEN  COLORS" 

@8.25  say  "2.  CHANGE  BUILDING  NUMBER" 

@  10,25  say  "3.  TBD" 

@  12.25  say  "4.  EXPLANATION  OF  MENU  OPTIONS" 

@  14.25  say  "5.  RETURN  TO  MAIN  MENU" 

@  5.20  to  15,60 
@  17.30  say  "SELECTION " 

@  16,20  to  18,60 
5ELECTNUM-5 

@  17.41  GET  SELECTNUM  PICTURE  "9” 

READ 
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CLEAR 

IF  SELECTNUM-5 
RETURN 
END  IF 

IF  SELECTNUM-1 
CLEAR 

DO  COLOR. PRG 
END  IF 

IF  SELECTNUM-2 
CLEAR 

@  10.10  say  "Enter  the  Building  Number  Where  Training  is 
Held:" 

bldg  =  " 

@  10.70  get  bldg  picture  "XXXXX" 

READ 

SAVE  ALL  LIKE  bldg  TO  bldg. mem 
END  IF 

IF  SELECTNUM=3 
END  IF 

IF  SELECTNUM-4 
DO  CONHELP . PRG 
END  IF 
ENDDO 

*  EOF:  CNFIG.PRG 

*  Program . :  CONHELP. PRG 

*  Description.:  Text  program  describing  the  Configuration 

*  Module  Menu  Options. 

CLEAR 

@  1.0  TO  3.79  DOUBLE 

@  2.25  SAY  [CONFIGURATION  HELP  SCREEN] 

@4.2  SAY  '  1 

TEXT 

Menu  Options: 

1.  CHANGE  SCREEN  COLORS  -  Allows  the  user  to  set  the 
screen  colors  to 

his/her  taste. 

2.  CHANGE  BUILDING  NUMBER  -  Allows  the  user  the  ability 
to  set /change  the 

building  number  where  classes  are  held.  This  building 
number  will  be 

displayed  on  supply  customer  training  reports. 

3 .  TBD  - 
ENDTEXT 

@  1.0  TO  21,79  DOUBLE 

WAIT 

CLEAR 

RETURN 

*  EOF:  CONHELP. PRG 
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*  Program . :  COLOR  .  PRO 

*  Description.:  Allows  user  to  select  program  colors. 
RESTORE  FROM  COLOR. MEM  ADDITIVE 

SET  TALK  OFF 
SET  BELL  OFF 
SET  CONFIRM  ON 
CLEAR 
TEXT 


STMIS  Color  Choices 
N.  Black  R.  Red 

B.  Blue  RB .  Purple 

G.  Green  GR.  Brown 

BG .  Light  Blue  W+ .  Bright 

White 

XX.  Return  to  Main  Menu 


Please  Enter  the  Letter (s)  and  Press 

RETURN 


ENDTEXT 

@  2.10  TO  4.70  DOUBLE 

@  2.10  TO  17.70  DOUBLE 

@19,20  SAY  "Foreground  Choice?  " 

@  19.41  SAY  FC  PICTURE  "XX" 

@19.41  GET  FC 

READ 

IF  FC  -  "XX" 

RETURN 
END  IF 

@  13,25  SAY  " 

IF  FC  <  >  "  " 

SET  COLOR  TO  &FC/&BC . R/W+ , &BDC 
END  IF 

@19,20  SAY  "Background  Choice?  " 
@  19.41  SAY  BC  PICTURE  "XX" 
@19,41  GET  BC 
READ 

IF  BC  -  "XX" 

RETURN 

ENDIF 

IF  BC  <  >  ”  " 

SET  COLOR  TO  &FC/&BC . R/W+ , &BDC 
ENDIF 


(§19.20  SAY  "  Border  Choice?  " 
§  19.41  3 AY  BDC  PICTURE  "XX" 
§19.41  GET  BDC 
READ 

IF  BDC  -  "XX" 

RETURN 
END  IF 

IF  BDC  <  >  "  " 

SET  COLOR  TO  &FC/&BC , R/W+ . &BDC 
END  IF 

SET  CONFIRM  OFF 

SAVE  ALL  LIKE  *C  TO  COLOR. MEM 

CLEAR 

RETURN 

*EOF :  COLOR.  PP.G 


*  Program . :  PACK.PRG 

k  Description.:  Program  to  print/delete  records  of  PCS'ing 
personne 1 . 

CLEAR 

ANSWER  =  "Y" 

DO  WHILE  ANSWER  =  "Y" 


@  1.0  to  3.79  DOUBLE 

§  2,5  SAY  [SUPPLY  TRAINING  MANAGEMENT  INFORMATION  SYSTEM 
DELETE  FACILITY] 

@7.17  SAY  "ENTER  LAST  NAME  OF  INDIVIDUAL" 

@  5,10  TO  9.70  DOUBLE 
LNAME  -  ' 

@7,52  GET  LNAME 

READ 

CLEAR 

SET  FORMAT  TO  PCS 
EDIT  FOR  LAST_NAME» LNAME 
SET  FORMAT  TO 
CLEAR 

@7.17  SAY  "DELETE  MORE  (Y/N)  ?  " 

@  5.10  TO  9,70  DOUBLE 

@7,42  GET  ANSWER 

READ 

CLEAR 

ENDDO 

CLEAR 

@7,17  SAY  "Updating  database.  Please  wait  ..." 

PACK 

CLEAR 

RETURN 

*  EOF:  PACK.PRG 


* 

Program 

. :  PCS . FMT 

@ 

1.  24 

SAY 

"STMIS  Record 

Deletion  Facility 

@ 

4.  6 

SAY 

"Last  Name" 

@ 

4,  16 

GET 

THES IS- >LAST_ 

.NAME 
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@  4, 

33 

SAY 

"First  Name" 

@  4. 

44 

GET 

THES IS- >FIRST_NAME 

@  4. 

58 

SAY 

"Pay  Grade" 

@  4 . 

68 

GET 

THESIS- >PAY_GRADE  PICTURE  "AXXXX" 

(d  7, 

9 

SAY 

"Social  Security  No." 

@  7, 

&  i 

GET 

THESIS->SSN  PICTURE  "XXX-XX-XXXX" 

@  7. 

35 

SAY 

"Office  Symbol" 

@  7. 

49 

GET 

THESIS->OFF_SYM 

@  7, 

63 

SAY 

"Duty  Phone" 

@  7, 

74 

GET 

THESIS- >DUTY  PHONE 

@  10. 

4 

SAY 

"IF  THIS  IS  THE  RECORD  YOU  ARE 

IF 

THIS 

IS  NOT  THE  RECORD  YOU" 

@  11. 

9 

SAY 

"LOOKING  TO  DELETE: 

ARE 

LOOKING  TO  DELETE:" 

@  14, 

4 

SAY 

"Hold  the  Control  (Ctrl)  key  down 

Press 

Page 

Down 

(Pg 

Dn)  to  view" 

@  16. 

4 

SAY 

"and  Press  the  letter  U.  Then. 

other 

records  with  the  same  last" 


@ 

18, 

4 

SAY 

"Press 

Page  Down  to  continue 

name . 

ll 

@ 

0. 

0 

TO 

8.  79 

DOUBLE 

@ 

0. 

0 

TO 

2.  79 

DOUBLE 

a 

o , 

0 

TO 

8,  79 

DOUBLE 

@ 

8,’ 

0 

TO 

8.  79 

@ 

0. 

0 

TO 

8,  79 

DOUBLE 

@ 

9, 

1 

TO 

19,  78 

<a 

9, 

39 

TO 

19,  40 

@ 

12, 

3 

TO 

12,  36 

@ 

12. 

43 

TO 

12.  75 

?*  EOF:  PCS.FMT 


*  Program . :  BACKUP. PRO 

*  Description.:  Allows  user  to  backup  database  files  on 
floppy 

*  diskette. 

CLEAR 

TEXT 


Insert  Formatted  Floppy  Disk  in  Drive  A: 


ENDTEXT 

85,18  TO  11.60  DOUBLE 
WAIT  "  " 

CLEAR 

TEXT 


ENDTEXT 

@5,20  TO  11,60  DOUBLE 
SET  SAFETY  OFF 
CLOSE  DATABASES 


and  Press  RETURN  to  Continue. 


Backing  up  Database  File  . 

Store  Backup  Disk  in  a  Safe  Place. 
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COPY  FILE  THESIS. DBF  TO  A : BKSTMIS . DBF 
COPY  FILE  COLOR. MEM  TO  A : BKCOLOR . MEM 
COPY  FILE  MNAMES . MEM  TO  A : BKMNAMES . MEM 
COPY  FILE  BLDG. MEM  TO  A : BKBLDG . MEM 
COPY  FILE  AN FREQ . MEM  TO  A : BKANFREQ . MEM 
COPY  FILE  MIFREQ.MEM  TO  A : BKMIFREQ . MEM 
SET  SAFETY  ON 

WAIT  "  Press  any  key  to  EXIT 

*  EOF:  BACKUP. PRO 
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Base  Supply  Customer  Training  Module 


*  Program . :  BSCT.PRG 

*  Description.:  Program  module  for  Base  Supply  Customer- 
Training  . 

SET  SCOREBOARD  OFF 

SET  HEADINGS  OFF 

SET  TALK  OFF 

SET  BELL  OFF 

SET  STATUS  OFF 

SET  ESCAPE  OFF 

SET  CONFIRM  Off 

USE  THESIS  INDEX  LASTNAME 

DO  WHILE  .T. 

*  - Display  menu  options,  centered  on  the  screen. 

*  draw  menu  border  and  print  heading 
CLEAR 

3  2 ,  0  TO  16.79  DOUBLE 

3  3,  3  SAY  [BASE  SUPPLY  CUSTOMER  TRAINING  MODULE] 

3  3-53  SAY  CDOW ( DATE ())■*•",  "  +CMONTH ( DATE U)+“ 

" +LTRIM (STR( DAY ( DATE O ) .2) )+" .  " +LTRIMCSTR ( YEAR ( DATE ( ) ) .4) ) 
3  4.1  TO  4,78  DOUBLE 

*  - display  detail  lines 

3  6,10  SAY  [1.  MENU  OPTION  EXPLANATIONS] 

3  8.10  SAY  [2.  CREATE/EDIT  RECORDS  1 

8  10,10  SAY  [3.  SEARCH  DATABASE] 

8  6.45  SAY  (4.  MANAGEMENT  REPORTS)  • 

3  8.45  SAY  [5.  SCHEDULE  TRAINING] 

8  10.45  SAY  [6.  MARK/PRINT  NO-SHOWS] 

3  12.30  SAY  [0.  EXIT  TO  MAIN  MENU] 

§  14.3  SAY  [Last  Update:] 

8  15.4  SAY  LUPDATEO 
selectnum-0 

@  14,27  SAY  "Please  Enter  Your  Choice" 

8  14.54  GET  se lectnum  PICTURE  "9" 

READ 
CLEAR 
DO  CASE 

CASE  se lectnum  -  0 
CLEAR 
RETURN 

CASE  se lectnum  -  1 
DO  INFOBSCT . PRG 
CASE  se lectnum  -  2 
DO  EDITB.PRG 
REINDEX 

CASE  selectnum  -  3 
DO  SEARCHB . PRG 
CASE  selectnum  -  4 
DO  BSCTRPTS . PRG 
CASE  selectnum  -  5 
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DO  SCHED . PRO 
CASE  selectnum  =  6 
DO  NOSHW . PRO 

ENDCASE 

ENDDO 

RETURN 

*  EOF:  BSCT.PRG 

*  Program . :  INFOBCST.PRG 

*  Description. :  Text  program  describing  the  Base  Supply 
Customer 

*  Training  Module  and  its  use. 

CLEAR 

@  1,0  TO  3.79  DOUBLE 

@2.18  SAY  [BASE  SUPPLY  CUSTOMER  TRAINING  MODULE] 

@4,2  SAY  '  1 

TEXT 

This  module  is  used  to  track,  schedule,  and  monitor 
Base  Supply  Customer 

Training.  Upon  reciept  of  the  AF  Form  2426,  indicating  an 
organization 

wanting  to  schedule  a  person,  or  persons,  for  training, 
the  training  monitor, 

after  deciding  on  the  date  of  the  class,  will  input  the 
name  and  class  date 

of  the  individual  into  the  database  via  Menu  Option  5.  A 
confirmation  notice 

listing  all  who  are  scheduled  for  that  particular  class 
can  then  be  produced. 

showing  class,  class  date,  building,  and  trainee's  name, 
and  sent  to  the 

organization.  Prior  to  the  class,  the  monitor  can  print 
out  an  attendance 

roster  for  the  trainee's  to  initial  if  present.  After  the 
class,  the 

monitor,  using  the  initialed  attendance  roster,  can  mark 
the  no-shows  and 

print  out  a  listing  to  send  to  the  affected  organization. 
The  training 

information  for  those  that  did  attend  does  not  have  to 
altered  in  any  way 

because  it  was  already  input  back  when  the  monitor 
scheduled  them. 

Following  is  a  brief  explanation  of  each  menu  option  and 
what  it  does. 

ENDTEXT 

@  1.0  TO  21,79  DOUBLE 

WAIT 

CLEAR 

TEXT 

2.  CREATE/EDIT  RECORDS  -  Allows  the  user  to  create  new 
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or  edit  existing 

records  for  individuals  having  supply  training.  This 
option  should  be 

used  only  in  special  circumstances.  Menu  Option  5 
should  be  used 

whenever  possible. 

3.  SEARCH  DATABASE  -  Allows  the  user  to  search  the 
active  database  for 

specific  records  and  training  data. 

4.  MANAGEMENT  REPORTS  -  Used  to  produce  listings 
involving  Supply 

training,  (ex.  Attendance  rosters.  Annual  Training 
Summary .  Tr a i n i ng 

confirmation  notices.  Equipment  Management  Report). 

b.  SCHEDULE  TRAINING  -  Used  upon  reciept  of  AF  Form 
2426,  or  other  form 

of  notification.  This  option  allows  the  user  to 
input  the  individuals 

in  the  database  at  the  time  of  scheduling,  and  allows 
the  production 

of  attendance  rosters  and  no-show  listings. 

6.  MARK/PRINT  NO-SHOWS  -  Used  after  training  classes  to 
mark  no-shows . 

print  no-show  listing,  and  delete  "scheduled  training 
dates"  from  the 

database  for  those  individuals  who  didn't  show  up. 
Entry  of  Block  III 

test  scores  is  also  provided  with  this  option. 

ENDTEXT 

@  0,0  TO  22.79  DOUBLE 

wait 

CLEAR 

RETURN 

*  EOF:  INFOBSCT . PRG 

*  Program . :  EDITB.PRG 

*  Description..-  Allows  editing  of  the  Base  Supply  Customer 

*  Data. 

REPE  -  "Y" 

DO  WHILE  REPE  <  >  "N" 

CLEAR 

@  1,0  to  3,79  DOUBLE 

0  2,10  SAY  [SUPPLY  TRAINING  CREATE/EDIT  FACILITY] 

@2.60  SAY  DATEO 

@  7,17  SAY  "ENTER  LAST  NAME  OF  INDIVIDUAL" 

@  5,10  TO  9,70  DOUBLE 
LNAME  -  ' 

@7,52  GET  LNAME 
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READ 

COUNT  FOR  LAST_NAME  =  LNAME  TO  FOUND 
IF  FOUND  =*  0 

WAIT  "No  Records  Exist  for  that  Last  Name.  Press  Any 
Key  to  Enter 

New  Information." 

SET  FORMAT  TO  ADDSCHED 

APPEND  BLANK 

EDIT  FOR  LAST_NAME  =  " 

DELETE  FOR  LAST_NAME  =  " 

SET  FORMAT  TO 

ELSE 

SET  FORMAT  TO  SCHDSCRN 
EDIT  FOR  LAST_NAME  =  LNAME 
SET  FORMAT  TO 
CLEAR 

@  9.9  TO  13,71  DOUBLE 

@  10.19  SAY  "That  is  all  the  Records  with  that  Last  Name" 

@  11,18  SAY  "Did  You  Find  the  Record  You  Were  Looking  For  ? 
@  12,37  SAY  " (Y/N) " 

=  ’  1 

@  12.42  GET  ANSWER- 
READ 

IF  ANSWER  =  ’N- 

SET  FORMAT  TO  ADDSCHED 
@  15,10  SAY  "  “ 

WAIT  "  Press  Any  Key  When  Ready  to  Create  the 

New  Record  ..." 

APPEND  BLANK 

EDIT  FOR  LAST_NAME  -  " 

DELETE  FOR  LAST_NAME  =  " 

SET  FORMAT  TO 
CLEAR 
END  IF 
ENDIF 
CLEAR 

@  3,13  TO  7,67  DOUBLE 

@5,16  SAY  "DO  YOU  WANT  TO  CREATE/EDIT  MORE  RECORDS  (Y/N)  ? 

REPE  ■  1  1 

0  5.64  GET  REPE 

READ 

ENDDO  • 

CLEAR 

@7,17  SAY  "Updating  database.  Please  wait  ..." 

PACK 

*  EOF:  EDITB.PRG 

*  Program . SEARCHB.PRG 

*  Description.:  Allows  the  user  to  search  the  database 
CLEAR 

@  1,0  to  3.79  DOUBLE 

@2,10  SAY  [SUPPLY  TRAINING  SEARCH  FACILITY] 
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(3  2.60  SAY  DATE (  > 

@  7 . 17  SAY  "ENTER  LAST  NAME  OF  INDIVIDUAL" 

@  5,10  TO  9.70  DOUBLE 
LNAME  -  ' 

@7,52  GET  LNAME 
READ 

COUNT  FOR  LA5T_NAME  =  LNAME  TO  FOUND 

IF  FOUND  -  0 

CLEAR 

@  9,9  TO  11,71  DOUBLE 

@  10.20  SAY  "No  Records  Exist  for  Last  Name  - 
@  10.53  SAY  LNAME 


WAIT  ”  Press  any  key  to  return  O 

menu .  " 

ELSE 

CLEAR 

SET  FORMAT  TO  SEARCHB 
EDIT  FOR  LAST_NAME  -  LNAME 
SET  FORMAT  TO 
CLEAR 

0  9,9  TO  11.71  DOUBLE 

@  10,13  SAY  "That  is  all  the  Records  with  Last  Name  -  " 
@  10.54  SAY  LNAME 
? 


WAIT  "  Press  any  key  to  return  to 

menu .  " 

END  IF 
CLEAR 

*  EOF:  SEARCHB. PRG 


*  Program. . . . :  SEARCHB. FMT 


@ 

1 , 

22 

SAY 

"Base  Supply  Customer  Training  Record" 

@ 

4. 

6 

SAY 

"Last  Name" 

(9 

4. 

16 

GET 

THESIS- >LAST_NAME 

@ 

4. 

33 

SAY 

"First  Name" 

@ 

4. 

44 

GET 

THESIS- >FIRST_NAME 

@ 

4, 

58 

SAY 

"Pay  Grade" 

@ 

4. 

68 

GET 

THESIS- >PAY_GRADE  PICTURE  "AXXXX" 

9 

7. 

2 

SAY 

"Social  Security  No." 

0 

7, 

22 

GET 

THESIS- >SSN  PICTURE  "XXX-XX-XXXX" 

@ 

7, 

35 

SAY 

"Office  Symbol" 

@ 

7. 

49 

GET 

THESIS- >OFF_SYM 

@ 

7, 

63 

SAY 

"Duty  Phone" 

@ 

7. 

74 

GET 

THESIS- >DUTY_PHONE 

@ 

9, 

26 

SAY 

"Training  Dates  (MM/DD/YY)" 

I 
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@ 

12 

1 6 

SAY 

"BLOCK 

I  BLOCK  IIA  BLOCK 

@ 

i  5  . 

16 

GET 

THESIS 

-  -BLOCK  I 

ft 

'!  ft 

33 

GET 

THESIS 

-BLOCK! I A 

ft 

13 . 

51 

GET 

THESIS 

-  BLOCKIIB 

@ 

16 '. 

10 

SAY 

"  ACCT 

BLOCK  III  Test  Score 

BLOCK 

IV" 

@ 

17. 

10 

GET 

THESIS 

-''-ACCT  PICTURE  "999XX” 

ft 

17, 

21 

GET 

THESIS 

-  >BLOCKI 1 1 

ft 

17. 

41 

GET 

THESIS 

-  ORESTS  CORE 

@ 

17. 

56 

GET 

THESIS 

-  >BLOCI<IV 

@ 

19. 

12 

SAY 

"Press 

Page  Down  to  see  other  records  with 

same  L 

.ast 

Name 

ii 

ft 

20. 

20 

SAY 

"Press 

ESCAPE  to  exit  search  facility." 

@ 

0. 

0 

TO  2 

1.  79 

DOUBLE 

@ 

0. 

0 

TO 

2  .  79 

DOUBLE 

@ 

0. 

n 

TO  21.  79 

DOUBLE 

@ 

8 . 

n 

TO  1 

0.  79 

@ 

0. 

0 

TO  2 

1 ,  79 

DOUBLE 

ft 

18 . 

1 

TO  .18.  78 

:  *r 

EOF 

SEARCHB .  FMT 

*  Program . :  BSCTRPTS.PRG 

*  Description.-  Reports  program  for  BSCT  Module. 

CLEAR 

DO  WHILE  .T. 

@  1.0  TO  3,79  DOUBLE 

@  2.8  SAY  [SUPPLY  CUSTOMER  TRAINING  MANAGEMENT  REPORTS 
FACILITY] 

0  2,70  SAY  DATEO 

@  1.0  TO  13.79  DOUBLE 

ft  5.5  SAY  [1.  EXPLANATION  OF  REPORTS] 

@7.5  SAY  [2.  CLASS  ATTENDANCE  ROSTER] 

@9.5  SAY  [3.  ANNUAL  TRAINING  REPORT  ] 

@5.45  SAY  [4.  SCHEDULE  CONFIRMATION  NOTICE] 

@7,45  SAY  [5.  EQUIPMENT  MANAGEMENT  REPORT] 

@9,45  SAY  [0.  RETURN  TO  PREVIOUS  MENU] 

@  11,30  SAY  "SELECT  A  NUMBER" 

SELECTNUM  -  0 

@  11.46  GET  SELECTNUM  PICTURE  "9" 

READ 

CLEAR 

IF  SELECTNUM  -  0 
RETURN 
END  IF 

IF  SELECTNUM  *  1 
CLEAR 

DO  INFOSTRP 
END  IF 

IF  SELECTNUM  -  2 
CLEAR 

DO  ATTNDROS 
END  IF 
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IF  SELECTNUM  -  3 
CLEAR 
DO  MAJCOM 
END  IF 

IF  SELECTNUM  -  4 
CLEAR 

DO  CONFIRM 
END  IF 

IF  SELECTNUM  -  5 
CLEAR 
DO  EQMGMT 
END  IF 
ENDDO 

*  EOF:  B3CTRPTS  .  PP.G 

*  Program . :  ATTNDROS  .  PRG 

*  Description.:  Provides  user  with  attendance  rosters  for 

*  BSCT  classes. 

DO  WHILE  .T. 

CLEAR 
DTE  -  " 

<a  1.0  TO  3.79  DOUBLE 

@  2.14  SAY  [SUPPLY  TRAINING  ATTENDANCE  ROSTER  REPORTS 
FACILITY! 

id  1,0  TO  17.79  DOUBLE 
@  5,10  SAY  11.  BLOCK  I  TRAINING] 

«  7,10  SAY  [2.  BLOCK  IIA  TRAINING] 

@  9.10  SAY  [3.  BLOCK  IIB  TRAINING] 

§  5,50  SAY  [4.  BLOCK  III  TRAINING] 

<a  7.50  SAY  [5.  BLOCK  IV  TRAINING] 
a  9.50  SAY  [0.  EXIT  REPORTS  MENU] 

®  11.27  SAY  "SELECT  THE  TRAINING  BLOCK" 

SELECTNUM  -  0 

@  11.56  GET  SELECTNUM  PICTURE  "9" 

READ 

IF  SELECTNUM  -  0 
CLEAR 
RETURN 
END  IF 

@  13.20  SAY  "ENTER  THE  CLASS  DATE  (MM/DD/YY)  "  GET  DTE 
PICTURE  "99/99/9 9" 

READ 

DTE  -  CTOD(DTE) 

PR  -  "N" 

CLEAR 

§  9.15  TO  13 .  *5  DOUBLE 

§  11,17  SAY  "DO  YOU  WANT  THIS  SENT  TO  THE  PRINTER  (Y/N)  ?  " 
@  11,63  GET  PR  PICTURE  "N" 

READ 

IF  PR  -  "Y" 

CLEAR 

®  5,20  SAY  "MAKE  SURE  PRINTER  IS  ON-LINE  AND  READY  .  .  ." 
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WA IT  "  PRESS  AMY  KEY  TO  PRINT  1 

SET  PRINT  ON 

CLEAR 

ft  5.20  SAY  "USE  CTRL-S  TO  STOP /START  SCROLLING  SCREEN  " 

7 

WAIT  "  PRESS  ANY  KEY  TO  BEGIN  " 

CLEAR 
END  IF 

IF  SELECTNUM  *  1 

?  "***  BLOCK  I  -  General  Supply  Indoctrination  *  *  * 

Class  Date  is  ".DTE 
o 

r  ATTENDANCE  RASTER' 1 


?  "Initials  Name  Grade  Off /Sym" 

9 

GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

IF  BLOCK I  =  DTE 

?  " _  ”  "  +-FIRST_NAME+-"  "  +LAST_NAME-*-PAY_GRADEJ- " 

" +OFF_SYM 

END  IF 

SKIP 

ENDDO 

SET  PRINT  OFF 

WAIT 

END  IF 

IF  SELECTNUM  =  2 

?  " *  * *  BLOCK  IIA  -  Bench  Stock  Management  ***  Class 

L>ate  is  "  ,  DTE 

9 

?  "  ATTENDANCE  ROSTER" 

?  "Initials  Name  Grade  Off/Sym" 

9 

GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

IF  BLOCK 1 1 A  =  DTE 

?  " _  ■•*"  "-*-FIRGT_NAME  +  "  "  +-LAST_NAME  +  P.AY_GRADE+ " 

" *0FF_3YM 

7 

END  IF 

SKIP 

ENDDO 

SET  PRINT  OFF 

WAIT 

END  IF 

IF  SELECTNUM  -  3 

?  * »  *  BLOCK  I  IB  -  Repair  Cycle  Management  ***  Class 


Dan-? 


.  DTE 


?  ■>  ATTENDANCE  ROSTER" 

7 

?  "Initials  Name  Grade  Off/Sym" 

7 

GO  TOP 

DO  WHILE  .NOT.  EOF < i 
IF  BLOCKIIB  =  DTE 

7  ■* _  *■  +  ”  1  ‘  +  F I RST_N AME  +  ’ ‘  "  +LAST_NAME+PAY_GRADE+ " 

’■  ->-OFF_SYM 

7 

END  IF 

SKIP 

ENDDO 

SET  PRINT  OFF 

WAIT 

END  IF 

IF  SELECTNUM  -  4 

?  " * « *  BLOCK  III  -  Equipment  Management  *  *  *  Class 

Date  is  ".DTE 

7 

7  ■■  ATTENDANCE  ROSTER" 

n 

?  "Initials  Name  Grade  O^f.Sym" 

7 

GO  TOP 

DO  WHILE  .NOT.  EOF( ) 

IF  BLOCKI I I  -  DTE 

7  -  "+FIRST_NAME+"  "+LAST_NAME+PAY_GP.ADE<-" 

“+OFF_SYM 

7 

END  IF 

SKIP 

ENDDO 

SET  PRINT  OFF 

WAIT 

END  IF 

IF  SELECTNUM  -  5 

?  " *  *  *  BLOCK  IV  -  War  Reserve  Materiel  (WRM1  .  War  Readiness 
Spares  Kit" 

?*  "  (WRSK) .  and  Mobility  Management  Class 

Date  is  ".DTE 

7 

7  "  ATTENDANCE  ROSTER" 

7 

?  "Initials  Name  Grade  Off/Sym" 

7 

GO  TOP 

DO  WHILE  .NOT.  EOF( ) 

IF  BLOCK IV  -  DTE 

?  11 _  *•  +  "  "  +  FIRST  NAME-*-"  " -t-LA5T_NAME+PAY_GRADE+" 
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SKIP 

ENDDO 

SET  PRINT  OFF 
WAIT 
END  IF 
ENDDO 

*  EOF:  ATTNDROS . PRG 

*  Program . :  INFOSTRP  .  PRG 

*  Description.:  Text  program  describing  the  reports  provided 
by  the 

*  Base  Sunply  Training  Module. 

CLEAR 

@  1.0  TO  3.79  DOUBLE 

@  2.23  SAY  [BASE  SUPPLY  CUSTOMER  TRAINING  MODULE] 

@4.2  SAY  '  ' 

TEXT 

2.  CLASS  ATTENDANCE  ROSTER  -  Prints  a  roster  for  any 
class  on  any  date. 

Although,  its  primary  use  is  to  print  out  an 
attendance  roster  prior  to 

a  scheduled  class  for  the  attendees  to  initial .  the 
monitor  can  also 

print  listings  of  attendance  rosters  for  past  classes. 

3.  ANNUAL  MAJCOM  TRAINING  REPORT  -  This  option  provides 
the  calendar  year 

training  summary  report  specified  in  AFR  50-1.  The 
report  calculates  the 

number  of  people  trained — by  category,  the  number  of 
training  hours — by 

category,  and  provides  the  totals  for  each. 

4.  SCHEDULE  CONFIRMATION  NOTICE  -  This  option  prints  a 
roster  of  all 

personnel  scheduled  for  any  class,  similar  to  the 
attendance  roster.  This 

list  can  be  sent  to  the  affected  organizations  to 
confirm  training  dates. 

5.  EQUIPMENT  MANAGEMENT  REPORT  -  Provides  a  listing  of 
all  personnel 

trained  in  Block  III  and  their  organizational  account. 

( In  Acct  Order) . 

ENDTEXT 

@  1.0  TO  21.79  DOUBLE 

wait 

CLEAR 

RETURN 

*  EOF :  INFOSTRP . PRG 


*  Program . MAJCOM.PRG 

*  Description.:  Calculates  and  Prints  the  Annual  Training 
Summary 

*  Initialize  Class  Time  Variables 
CY  =  0 

BIT  =  0 
BIIAT  -  0 
BIIBT  =  0 
BIIIT  -  0 
BIVT  =  0 
CLEAR 

@  1.0  TO  3,79  DOUBLE 

@2.8  SAY  “ANNUAL  MAJCOM  TRAINING  REPORT" 

@  1.0  TO  17.79  DOUBLE 

@5.6  SAY  “ENTER  THE  REPORT  YEAR  (ex.  1989)  “  GET  CY  PICTURE 
“9999“ 

READ 

@7.6  SAY  “ENTER  YOUR  AVERAGE  BLOCK  I  CLASS  TIME  IN  HOURS 
(ex.  2.5)  “  GET  BIT 
PICTURE  “99.9“ 

READ 

@9.6  SAY  “ENTER  YOUR  AVERAGE  BLOCK  II A  CLASS  TIME  IN  HOURS 

“  GET  BIIAT  PICTURE  "99.9“ 

READ 

@  11,6  SAY  "ENTER  YOUR  AVERAGE  BLOCK  I IB  CLASS  TIME  IN  HOURS 

"  GET  BIIBT  PICTURE  "99.9" 

READ 

@  13.6  SAY  "ENTER  YOUR  AVERAGE  BLOCK  III  CLASS  TIME  IN  HOURS 

"  GET  BIIIT  PICTURE  "99.9" 

READ 

@15,6  SAY  "ENTER  YOUR  AVERAGE  BLOCK  IV  CLASS  TIME  IN  HOURS 

"  GET  BIVT  PICTURE  "99.9" 

READ 

CLEAR 

TEXT 

Please  wait  while  your  annual  MAJCOM 
Report  is  being  calculated  .  .  . 

ENDTEXT 

*  Calculations  begin 

COUNT  FOR  PAY_GRADE  -  "0"  .AND.  YEAR (BLOCKI )  -  CY  TO  OBI 

COUNT  FOR  PAY_GRADE  -  "E"  .AND.  YEAR (BLOCKI)  -  CY  TO  EBI 

COUNT  FOR  YEAR (BLOCKI)  -  CY  TO  CBT 
CBI  -  CBI  -  (OBI+EBI ) 

COUNT  FOR  PAY_GRADE  -  "0"  .AND.  YEAR (BLOCKIIA)  -  CY  TO  OBIIA 

COUNT  FOR  PAY_GRADE  -  "E"  .AND.  YEAR (BLOCKI I  A)  -  CY  TO  EBI IA 

COUNT  FOR  YEAR ( BLOCK I I A )  -  CY  TO  CBI I A 
CBIIA  -  CBI IA  -  (OBIIA+EBIIA) 

COUNT  FOR  PAY  GRADE  -  "0"  .AND.  YEAR ( BLOCKI IB)  -  CY  TO  OBI IB 
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COUNT  FOP.  PAY_GRADE  =  '■  E"  .AND.  YEAR  (BLOCK  1 13)  =  CY  TO  EBII5 
COUNT  FOR  YEAR ( BLOCK I IB)  =  CY  TO  CBIIB 
CBIIB  =  CBIIB  -  ( OBI  IB  t-EBI  IB  ) 

COUNT  FOR  PAY_GRADE  =  " 0 "  .AND.  YEAR  (  BLOCKI 1 1 )  =  CY  TO  OBI  I 
COUNT  FOR  PAY_GRADE  =  "E"  .AND.  YEAR (BLOCKI I I )  =  CY  TO  EBII 
COUNT  FOR  YEAR( BLOCKI II)  =  CY  TO  CBIII 
CBIII  =  CBIII  -  (OBI  1 1  +EBI  1 1 ) 

COUNT  FOR  PAY_GRADE  =  “O"  .AND.  YEAR (BLOCKIV)  =  CY  TO  OBIV 
COUNT  FOR  PAY_GRADE  =  "E"  .AND.  YEAR (BLOCKIV)  =  CY  TO  EBIV 
COUNT  FOR  YEAR (BLOCKIV)  =  CY  TO  CBIV 
CBI V  =  CBIV  -  (OBIV+EBIV) 

OBIT=OBI*BIT 
EBIT=EBI *BIT 
CBIT=CBI *BIT 
OB I I AT =QB 1 1 A  *  B 1 1 AT 
ESI I AT^EBI I A  *  BI I AT 
CBI I AT=CBI I A  *BI I AT 
OBIIBT-OBIIB*BIIBT 
EBI IBT=EBIIB*BI IBT 
CBI IBT=CBIIB*BI IBT 
OBI I IT=OBI I I *BI I IT 
EBII IT=EBI I I *BI I IT 
CBI I IT=CBI II*BIIIT 
OBIVT=OBIV*BIVT 
EBIVT=EBIV*BIVT 
CBrVT-CBIV*BIVT 

NOT  -  OBI+OBII A+OBI IB+OBI I I +OBIV 

HOT  =  OBIT+OBIIAT+OBIIBT+OBIIIT+OBIVT 

NET  =  EBI+EBIIA+EBI IB+EBI I I+EBIV 

HET  =  EBIT-t-EBI  IAT+EBI IBT+EBI 1 1  -t-EBIVT 

NCT  =  CBI+CBI IA+CBI IB+CBI I I+CBIV 

HCT  -  CBIT+CBIIAT+CBIIBT+CBIIIT+CBIVT 

NIT  =  OBI+EBI+CBI 

HIT  -  OBIT+EBIT+CBIT 

NIIAT  -  OBIIA+EBIIA+CBIIA 

HI I AT  -  OBI I AT +EBI I AT+CB 1 1 AT 

NIIBT  =  OBI IB+EBI IB+CBI IB 

HI IBT  -  OBI IBT+EBI IBT+CBI IBT 

Nil IT  -  OBI I I +EBI I I +CBI I I 

HI I IT  -  OBI I IT+EBI I IT+CBI I IT 

NIVT  =  OBI V+EBI V+CBIV 

HI VT  =  OB I VT +EB I VT+CB I VT 

GTN  -  NIT+NIIAT+NI IBT +NI I IT+NIVT 

GTH  -  HIT-*-HIIAT+HIIBT+HII  IT+HIVT 

CLEAR 

DO  MRPT.PRG 
RETURN 

*  EOF:  MAJCOM.PRG 

*  Program . :  MRPT.PRG 

*  Description.;  Printout  Format  for  Annual  Training  Summary 

@  1,  22  SAY  "Annual  Supply  Training  Summary  CY  " 
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l-H  l-H 


@  1.  62  SAY  CY 

@  3,  2  SAY  "Category  Block  I  Block  IIA  Block  TIB 

Block  III  Block  IV  Total" 

(5  5.2  SAY  "#  Officers" 

(9  5.16  SAY  OBI  PICTURE  "9999" 

@  5,27  SAY  OBI I A  PICTURE  "9999" 

@5,39  SAY  OBI IB  PICTURE  "9999" 

@  5,52  SAY  OBI I I  PICTURE  "9999" 

@5,64  SAY  OBIV  PICTURE  "9999" 

@5,74  SAY  NOT  PICTURE  "9999" 

@7,2  SAY  "Off  Hours" 

@7,15  SAY  OBIT  PICTURE  "9999.9" 

@7,26  SAY  CBIIAT  PICTURE  "9999.9" 

@7,38  SAY  OBIIBT  PICTURE  “9999.9" 

@  7.51  SAY  OBI I IT  PICTURE  "9999.9" 

@  7.63  SAY  OBIVT  PICTURE  "9999.9" 

@7,73  SAY  HOT  PICTURE  "9999.0" 

@9.2  SAY  "#  Enlisted" 

@9,16  SAY  EBI  PICTURE  "9999" 

@9.27  SAY  EBI IA  PICTURE  "9999" 

@9,39  SAY  EBIIB  PICTURE  "9999" 

@  9,52  SAY  EBI I I  PICTURE  “9999" 

@9.64  SAY  EBIV  PICTURE  "9999" 

@9,74  SAY  NET  PICTURE  "9999" 

@  11,2  SAY  "Enl  Hours" 

@  11,15  SAY  EBIT  PICTURE  "9999.9" 

@  11,26  SAY  EBIIAT  PICTURE  "9999.9" 

@  11.38  SAY  EBIIBT  PICTURE  "9999.9" 

@  11,51  SAY  EBI I IT  PICTURE  "9999.9" 

@  11,63  SAY  EBIVT  PICTURE  "9999.9" 

@  11,73  SAY  HET  PICTURE  "9999.9" 

@  13.2  SAY  "#  Civilian" 

@  13,16  SAY  CBI  PICTURE  "9999" 

©  13.27  SAY  CBIIA  PICTURE  "9999" 

@  13,39  SAY  CBIIB  PICTURE  "9999" 

@  13,52  SAY  CBIII  PICTURE  "9999" 

@  13,64  SAY  CBIV  PICTURE  "9999" 

@  13,74  SAY  NCT  PICTURE  "9999" 

@15,2  SAY  "Civ  Hours" 

@  15,15  SAY  CBIT  PICTURE  "9999.9" 

@  15,26  SAY  CBIIAT  PICTURE  "9999.9” 

@  15.38  SAY  CBIIBT  PICTURE  "9999.9" 

@  15,51  SAY  CBI I IT  PICTURE  "9999.9" 

@  15,63  SAY  CBIVT  PICTURE  "9999.9" 

@  15,73  SAY  HCT  PICTURE  "9999.9" 

@  17.  2  SAY  "Total  #" 

@  17.16  SAY  NIT  PICTURE  "9999" 

@  17,27  SAY  Nil AT  PICTURE  "9999" 

@  17.39  SAY  NIIBT  PICTURE  "9999" 

@  17,52  SAY  'Nil IT  PICTURE  "9999" 

@  17,64  SAY  NIVT  PICTURE  "9999“ 

@  17,74  SAY  GTN  PICTURE  "9999" 
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@  19.  2  SAY  "Tot  Hours" 

@  19.15  SAY  HIT  PICTURE  "9999.9" 

@  19.26  SAY  HI  I  AT  PICTURE  "9999.9" 
@  19.38  SAY  HIIBT  PICTURE  "9999.9" 
§  19,51  SAY  HI  I IT  PICTURE  ”9999.9“ 
9  19.63  SAY  HIVT  PICTURE  "9999.9" 

9  19.73  SAY  GTH  PICTURE  "9999.9" 


9 

0 . 

0 

TO 

5 

* 

79 

DOUBLE 

9 

0. 

0 

TO 

20. 

79 

DOUBLE 

@ 

3. 

12. 

TO 

19. 

12 

9 

4, 

1 

TO 

4, 

78 

9 

6, 

1 

TO 

6, 

78 

9 

8, 

1 

TO 

8. 

78 

DOUBLE 

9 

10, 

1 

TO 

10. 

78 

@ 

12. 

1 

TO 

12. 

78 

DOUBLE 

(9 

14, 

1 

TO 

14. 

78 

9 

16  . 

1 

TO 

16, 

78 

DOUBLE 

9 

18, 

1 

TO 

18. 

78 

9 

2. 

1 

TO 

2  . 

78 

9 

4. 

1 

TO 

4. 

78 

DOUBLE 

9 

3, 

12 

TO 

19, 

12 

9 

3, 

22 

TO 

19. 

22 

9 

3, 

34 

TO 

19. 

34 

9 

3, 

46 

TO 

19, 

46 

9 

3, 

58 

TO 

19, 

58 

9 

3, 

70 

TO 

19. 

70 

DOUBLE 

? 

WAIT  "  Press  Shift-PrtSc  for  Hard  Copy.  Otherwise, 

Press  Return  ..." 

CLEAR 

RETURN 

*  EOF:  MRPT.PRG 

*  Program . :  NOSHW.PRG 

*  Description.:  Allows  user  to  mark  no-shows  and  print 
listing 

DO  WHILE  .T. 

TS  -  0 
K=0 
CLEAR 
DTE  -  " 

9  1.0  TO  3,79  DOUBLE 

9  2,24  SAY  [SUPPLY  TRAINING  NO-SHOW  FACILITY) 

9  1,0  TO  17,79  DOUBLE 

@5,10  SAY  [1.  BLOCK  I  TRAINING) 

@7,10  SAY  [2.  BLOCK  IIA  TRAINING) 

@9,10  SAY  [3.  BLOCK  I IB  TRAINING) 

9  5,50  SAY  [4.  BLOCK  III  TRAINING) 

9  7.50  SAY  [5.  BLOCK  IV  TRAINING) 

@9.50  SAY  [0.  EXIT  REPORTS  MENU) 

9  11,27  SAY  "SELECT  THE  TRAINING  BLOCK" 
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SELECTNUM  =  0 

a  11.56  GET  SELECTNUM  PICTURE  “9" 

READ 

IF  SELECTNUM  =  0 
CLEAR 
RETURN 
END  IF 

@  13,20  SAY  "ENTER  THE  CLASS  DATE  (MM/DD/YY)  "  GET  DTE 
PICTURE  "99/99/99" 

READ 

DTE  =  CTOD(DTE) 

CLEAR 
TC  *  “ 

GO  TOP 

DO  WHILE  .NOT.  EOFO 
IF  SELECTNUM  =  1 

TC  =  "BLOCK  I  -  General  Supply  Indoctrination" 

CD  =  BLOCK I 
END  IF 

IF  SELECTNUM  =  2 

TC  =  "BLOCK  IIA  -  Bench  Stock  Management" 

CD  =  BLOCKIIA 
END  IF 

IF  SELECTNUM  -  3 

TC  *  "BLOCK  IIB  -  Repair  Cycle  Management" 

CD  -  BLOCKIIB 
END  IF 

IF  SELECTNUM  =  4 

TC  =-  "BLOCK  III  -  Equipment  Management" 

CD  -  BLOCKI I I 
END  IF 

IF  SELECTNUM  =  5 

TC  -  "BLOCK  IV  -  WRM.  WRSK ,  and  Mobility  Management 
CD  =  BLOCKIV 
END  IF 

IF  CD  =  DTE 

@5,5  SAY  LAST_NAME 
@5,16  SAY  FIRST_NAME 
@5.25  SAY  PAYJ3RADE 
a  4,3  TO  6,76  DOUBLE 
DEAD  -  "N" 

@  5,40  SAY  "WAS  THIS  INDIVIDUAL  A  NO-SHOW  ?" 

@5.70  GET  DEAD  PICTURE  "Y" 

READ 

IF  DEAD  -  "Y" 

K  -  K  +  1 

REPLACE  NOSHOW  WITH  .T. 

END  IF 

IF  SELECTNUM  -  4  .AND.  DEAD  -  "N” 

@  8,20  SAY  "ENTER  BLOCK  III  TEST  SCORE  (0  - 

100%)  " 


@8,60  GET  TS  PICTURE  "999" 
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READ 

REPLACE  TE3T3C0RE  WITH  TS 
END  IF 
END  IF 
SKIP 
ENDDO 
IF  K  >  0 
PR  =  "N" 

CLEAR 

@  9,15  TO  13.65  DOUBLE 

@  11.17  SAY  "DO  YOU  WANT  THIS  SENT  TO  THE  PRINTER  (Y/N)  ?  " 
@  11,63  GET  PR  PICTURE  "N" 

READ 

IF  PR  =  "Y" 

CLEAR 

0  5.20  SAY  "MAKE  SURE  PRINTER  IS  ON-LINE  AND  READY  .  .  . " 

9 

WAIT  "  PRESS  ANY  KEY  TO  PRINT 

SET  PRINT  ON 
ELSE 
CLEAR 

0  5.20  SAY  "USE  CTRL-S  TO  STOP/START  SCROLLING  SCREEN  " 

9 

WAIT  "  PRESS  AMY  KEY  TO  BEGIN 

CLEAR 
ENDIF 

?  TC+"  Class  Date  "+DT0C(DTE1 

7 

?  "  NO-SHOW  LISTING" 

7 

9 

?  "Name  Grade  Off/Sym" 

7 

GO  TOP 

DO  WHILE  .NOT.  EOFO 
IF  SELECTNUM  -  1 
CD  -  BLOCKI 
ENDIF 

IF  SELECTNUM  =  2 
CD  =  BLOCKI IA 
ENDIF 

IF  SELECTNUM  -  3 
'  CD  -  BLOCKI IB 
ENDIF 

IF  SELECTNUM  -  4 
CD  -  BLOCKI I I 
ENDIF 

IF  SELECTNUM  -  5 
CD  -  BLOCK IV 
ENDIF 

IF  CD  -  DTE  .AND.  NOSHOW 

?  FIRST  NAME+”  "+LA5T  NAME+PAY  GRADE+"  "+OFF  SYM 


81 


END  IF 
SKIP 
ENDDO 

WAIT 
END  IF 

SET  PRINT  OFF 
IF  SELECTNUM  =  1 

REPLACE  ALL  BLOCKI  WITH  CTODC 
.AND.  NOSHOW 
END  IF 

IF  SELECTNUM  =  2 

REPLACE  ALL  BLOCKI  I A  WITH  CTODC 
DTE  .AND.  NOSHOW 
END  IF 

IF  SELECTNUM  =  3 

REPLACE  ALL  BLOCKI  IB  WITH  CTODC 
DTE  .AND.  NOSHOW 
END  IF 

IF  SELECTNUM  * * * §  4 

REPLACE  ALL  BLOCKI  1 1  WITH  CTODC 
DTE  .AND.  NOSHOW 
END  IF 

IF  SELECTNUM  -  5 

REPLACE  ALL  BLOCKI V  WITH  CTODC 
DTE  .AND.  NOSHOW 
END  IF 

REPLACE  ALL  NOSHOW  WITH  .F. 

ENDDO 

*  EOF:  NOSHW.PRG 

*  Program . :  SCHED.PRG 

*  Description.:  Scheduling  Facility  for  BSCT 
REPE  -  "Y" 

DO  WHILE  REPE  < >  "N" 

CLEAR 

§  1.0  to  3.79  DOUBLE 

@2.10  SAY  (SUPPLY  TRAINING  SCHEDULING  FACILITY] 

@  2.60  SAY  DATEO 

@7,17  SAY  "ENTER  LAST  NAME  OF  INDIVIDUAL" 

@  5.10  TO  9.70  DOUBLE 
LNAME  -  ' 

@7,52  GET  LNAME 
READ 

COUNT  FOR  LAST_NAME  -  LNAME  TO  FOUND 
IF  FOUND  -  0 

WAIT  "No  Records  Exist  for  that  Last  Name.  Press  Any 
Key  to  Enter 
New  Information." 

SET  FORMAT  TO  ADDSCHED 

APPEND  BLANK 

EDIT  FOR  LAST  NAME  -  " 


" )  FOR  BLOCKI  =  DTE 


')  FOR  BLOCKI I A  = 


')  FOR  BLOCKI IB  = 


FOR  BLOCKI. 1 1  = 


•)  FOR  BLOCK IV  = 
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DELETE  FOP.  LAST_NAME  =  " 

LET  FORMAT  TO 

ELSE 

SET  FORMAT  TO  SCHDSORN 
EDIT  FOR  LAST_NAME  =  LNAME 
SET  FORMAT  TO 
CLEAR 

@  9,9  TO  13.71  DOUBLE 

@  10.19  SAY  "That  Is  all  the  Records  with  that  Last  Name" 
@  11.18  SAY  "Did  You  Find  the  Record  You  Were  Looking  For 
0  12.37  SAY  "(Y/N) " 

ANSWER  -  '  * * * § 

@  12.42  GET  ANSWER 
READ 

IF  ANSWER  =  1 M ’ 

SET  FORMAT  TO  ADDSCHED 
id  15.10  SAY  "  " 

WAIT  "  Press  Any  Key  When  Ready  to  Enter  the  New 

Information  ..." 

APPEND  BLANK 

EDIT  FOR  LAST_NAME  =  " 

DELETE  FOR  LAST_NAME  =  " 

SET  FORMAT  TO 
CLEAR 
END  IF 
END  IF 
CLEAR 

@  3.16  TO  7.64  DOUBLE 

@  5,18  SAY  "DO  YOU  WANT  TO  SCHEDULE  MORE  PEOPLE  (Y/N)  ?" 
REPE  -  1  ‘ 

@  5 . 62  GET  REPE 

READ 

ENDDO 

CLEAR 

@7,17  SAY  "Updating  database.  Please  wait  ..." 

PACK 

*  EOF:  SCHED.PRG 


*  Program . :  EQMGMT .  PP.G 

*  Description. :  Provides  a  report  of  Block  III  trainees  and 

*  their  organizational  account  codes. 

CLEAR 

USE  THESIS  INDEX  ACCT 

REINDEX 

PR  -  "N" 

CLEAR 

@  9,15  TO  13.65  DOUBLE 

@  11,17  SAY  "DO  YOU  WANT  THIS  SENT  TO  THE  PRINTER  (Y/N)  ?  " 

§  11,63  GET  PR  PICTURE  "N" 

READ 

IF  PR  »  "Y" 

CLEAR 
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0  5.20  3 AY  "MAKE  SURE  PRINTER  IS  ON-LINE  AND  READY 


WAIT  " 

SET  PRINT  ON 
ELSE 
CLEAR 

@5.20  SAY  "USE 

7 

WAIT  " 

CLEAR 
END  IF 
GO  TOP 
?  11 

As  of  11  .  DATE  (  ) 


PRESS  ANY  KEY  TO  PRINT 

CTRL-S  TO  STOP /START  SCROLLING  SCREEN 

PRESS  ANY  KEY  TO  BEGIN 

EQUIPMENT  MANAGEMENT  REPORT 


n 

9 

n 

?  "Acct 
Block  III" 


Name 


Grade 


DO  WHILE  .NOT.  EOFO 
IF  BLOCKIII  <  DATEO 

?  ACCT . ”  " . LAST_NAME . "  " . FIRST_NAME . " 

" . PAY_GRADE . "  " . BLOCKI I I 

7 

END  IF 
SKIP 
ENDDO 

SET  PRINT  OFF 
WAIT 

USE  THESIS  INDEX  LA3TNAME 

CLEAR 

RETURN 

*  EOF:  EQMGMT.PRG 


*  Program . :  CONFIRM. PRG 

»  Description. :  Provides  user  with  confirmation  roster  to 
send 

*  out  to  organisations. 

DO  WHILE  .T. 

CLEAR 
DTE  -  " 


@  1.0  TO  3.79  DOUBLE 

0  2.14  SAY  [SUPPLY  TRAINING  CONFIRMATION  ROSTER  REPORTS 
FACILITY) 

<a  1.0  TO  17.79  DOUBLE 

@5,10  SAY  11.  BLOCK  I  TRAINING) 

<a  7.10  SAY  [2.  BLOCK  IIA  TRAINING) 

@9.10  SAY  (3.  BLOCK  I IB  TRAINING) 

@5,50  SAY  [4.  BLOCK  III  TRAINING 1 
@7,50  SAY  (5.  BLOCK  IV  TRAINING) 

0  9.50  SAY  [0.  EXIT  REPORTS  MENU) 
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*  *  * 


Class 


SKIP 
END  DO 

SET  PRINT  OFF 

wa  it 

END  IF 

IF  SELECTNUM  -  2 

?  "***  BLOCK  II A  -  Bench  Stock  Management 

Date  is  ",  DTE 

>  " 

Building  ".bldg 

9 

?  "  CONFIRMATION  ROSTER" 

? 

?  "Name  Grade  Off/Sym" 

9 

GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

IF  3LOCKIIA  =  DTE 

?  FIRST_NAME  +  "  "  +LAST_NAME+PAY_GRADE+"  "  4-OFF_SYM 

h 

END  IF 

SKIP 

ENDDO 

SET  PRINT  OFF 

WAIT 

END  IF 

IF  SELECTNUM  =  3 

?  "***  BLOCK  I IB  -  Repair  Cycle  Management  *  *  * 

Date  is  ",DTE 

?  M 

Building  ".bldg 
o 

?  '■  CONFIRMATION  ROSTER" 

?  "Name  Grade  Off/Sym 

o 

GO  TOP 

DO  WHILE  .NOT.  EOF () 

IF  BLOCKIIB  -  DTE 

?  FIRST_NAME+"  "+LAST_NAME+PAY_GRADE+"  "+OFF_SYM 
? 

END  IF 

SKIP 

ENDDO 

SET  PRINT  OFF 

WAIT 

END  IF 

IF  SELECTNUM  -  4 

>  ’•***  BLOCK  III  -  Equipment  Management  *** 

Date  is  ".DTE 

9  M 

Building  ",  bldg 


C 1  as 


Class 
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3  L1.27  SAY  "SELECT  THE  TRAINING  BLOCK" 

SELECTNUM  =  0 

0  II  .  5  ^  GET  SELECTNL'M  PICTURE  "9" 

READ 

IF  SELECTNUM  =  0 
CLEAR 

USE  THESIS  INDEX  LASTNAME 
RETURN 
END  IF 

@  13.20  SAY  "ENTER  THE  CLASS  DATE  (MM/DD/YY)  "  GET  ui’E 
PICTURE  "99/99/99" 

READ 

DTE  -  CTOD ( DTE ) 

CLEAR 

RESTORE  FROM  BLDG. MEM  ADDITIVE 
PR  =  "N" 

CLEAR 

id  9.15  TO  13.65  DOUBLE 

a  11,17  SAY  "DO  YOU  WANT  THIS  SENT  TO  THE  PRINTER  lY/N)  ? 

I.a  11.63  GET  PR  PICTURE  "N" 

READ 

IF  PR  =*  "Y" 

CLEAR 

@  5.20  SAY  "MAKE  SURE  PRINTER  IS  ON-LINE  AND  READY  . 

7 

WAIT  "  PRESS  ANY  KEY  TO  PRINT 

SET  PRINT  ON 
ELSE 
CLEAR 

ia  5.20  SAY  "USE  CTRL-S  TO  STOP  .-'START  SCROLLING  SCREEN  " 

•? 

WAIT  "  PRESS  ANY  KEY  TO  BEGIN 

CLEAR 
END  IF 

USE  THESIS  INDEX  ORG 
RE INDEX 

IF  SELECTNUM  =  1 

?  ”***•  BLOCK  I  -  General  Supply  Indoctrination  *** 

Class  Date  is  ".DTE 
?  " 

Building  ”,  bldg 

?  "  CONFIRMATION  ROSTER" 

?  "Name  Grade  Olf/S>m" 

GO  TOP 

DC  WHILE  .NOT.  EOF( ) 

IF  BLOCK I  -  DTE 

?  FIRST_NAME+"  " +LAST_NAME+PAY_GRADE+"  " +OFFJ3YM 
? 

END  IF 
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CONFIRMATION  ROSTER" 


'?  "Name  Grade  Off/Sym" 

GO  TOP 

DO  WHILE  .NOT.  EOF( ) 

IF  BLOCKI I I  -  DTE 

?  FIRST_NAME+"  " +LAST_NAME+PAY_GRADE+ “  "+OFF_SYM 

9 

END  IF 

SKIP 

ENDDO 

SET  PRINT  OFF 

WAIT 

END  IF 

IF  SELECTNUM  *  5 

?  "***  BLOCK  IV  -  War  Reserve  Materiel  (WRM) ,  War  Readiness 
Spares  Kit" 

?  "  (WRSK')  .  and  Mobility  Management  Class 

Date  is  ".DTE 


Building  ".bldg 


CONFIRMATION  ROSTER" 


? 

?  "Name  Grade  Off/Sym" 

? 

GO  TOP 

DO  WHILE  .NOT.  EOF( ) 

IF  BLOCKIV  =  DTE 

?  FIRST  NAME+"  "+LA5T  NAME+PAY  GRADE+"  "+OFF 


SYM 


END  IF 

SKIP 

ENDDO 

SET  PRINT  OFF 
WAIT 
END  IF 
ENDDO 

*  EOF:  CONFIRM. PRG 


*  Program. . . . : ADDSCHED. FMT 


@ 

1, 

22 

SAY 

"Base  Supply  Customer  Training  Record’ 

@ 

4. 

6 

SAY 

"Last  Name" 

@ 

4. 

16 

GET 

THESIS- >LAST  NAME 

@ 

4. 

33 

SAY 

"First  Name" 

@ 

4, 

44 

GET 

THESIS- >FIRST_NAME 

@ 

4, 

58 

SAY 

"Pay  Grade" 

@ 

4, 

68 

GET 

THESIS- >PAY_GRADE  PICTURE  "AXXXX" 

@ 

7, 

2 

SAY 

"Social  Security  No." 

0 

7. 

22 

GET 

THESIS->SSN  PICTURE  "XXX-XX-XXXX" 
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25 

SAY 

"Office  Symbol" 

a 

n 

49 

GET 

THESIS- -OFF  3YM 

@ 

n 

63 

SAY 

"Duty  Phone" 

a 

rn 

1  , 

74 

GET 

THES IS- >DUTY_PHONE 

@ 

9. 

26 

SAY 

"Training  Dates  (MM/DD/YY) " 

@ 

12. 

17 

SAY 

"BLOCK  I  BLOCK  IIA  BLOCK  IIB" 

(a 

13. 

17 

GET 

THESIS-  YBLOCKI 

@ 

13. 

34 

GET 

THESIS- >BLOCKIIA 

@ 

13. 

51 

GET 

THESIS- >BLOCKI IB 

@ 

16. 

9 

SAY 

"ACCT  BLOCK  III  Test  Score 

BLOCK 

IV" 

@ 

17. 

9 

GET 

THESIS-YACCT  PICTURE  "999XX" 

@ 

17. 

21 

GET 

THESIS-  ">BLOCKI  1 1 

@ 

17 , 

42 

GET 

THESIS-  '>TESTSCORE 

a 

17. 

57 

GET 

THESIS- > BLOCK IV 

a 

19. 

7 

SAY 

"Press  RETURN  through  remaining  fields,  or 

pr 

■ess 

Ctrl 

.-End  when" 

@ 

20 . 

18 

SAY 

“finished  entering  data  to  save  record." 

@ 

0 . 

0 

TO 

21.  79  DOUBLE 

@ 

0  . 

0 

TO 

2  .  79  DOUBLE 

@ 

0, 

0 

TO 

21.  79  DOUBLE 

@ 

8 . 

Q 

TO 

10  .  79 

@ 

0. 

0 

TO 

21.  79  DOUBLE 

@ 

18, 

1 

TO 

18.  78 

EOF:  ADDSCHED  . FMT 
*  Program SCHDSCRN .  FMT 

0  1.  22  SAY  "Base  Supply  Customer  Training  Record" 

@4.  6  SAY  "Last  Name" 

@  4,  16  GET  THESIS- >LAST_NAME 

@  4.  33  SAY  “First  Name"' 

§  4.  44  GET  THES I S - >F I RST_N AME 

0  4.  58  SAY  "Pay  Grade" 

@  4.  68  GET  THESIS- >PAY_GRADE  PICTURE  "AXXXX" 

@7,  2  SAY  "Social  Security  No." 

@  7,  22  GET  THESIS- >SSN  PICTURE  “XXX-XX-XXXX" 

@  7.  35  SAY  "Office  Symbol" 

@  7.  49  GET  THESIS- >OFF_SYM 

@  7.  63  SAY  "Duty  Phone" 

@  7,  74  GET  THESIS- >DUTY_PHONE 

@  .9,  26  SAY  "Training  Dates  (MM/DD/YY) " 

@  12.  16  SAY  "BLOCK  I  BLOCK  IIA  BLOCK  IIB" 

0  13,  16  GET  THESIS- >BLOCK I 

&  13,  33  GET  THES IS- >BLOCK IIA 

@13,  51  GET  THESIS- >BLOCKI IB 

@16,  10  SAY  "ACCT  BLOCK  III  Test  Score 

BLOCK  IV” 

@17,  10  GET  THESIS- >ACCT  PICTURE  "999XX" 

@  17,  21  GET  THES IS- >BLOCK III 

@  17,  41  GET  THESIS->TESTSCORE 

@17.  56  GET  THESIS- >BLOCKIV 

@19,  5  SAY  "Press  Page  Down  to  see  other  records  with 
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same  Last  Name.  When  correct" 

$  20.  4  SAY  "record  is  found,  enter  scheduled  date (s 


Press 

Ctrl 

-End  t 

o  save 

record 

o . 

0 

TO 

21  . 

79 

DOUBLE 

@ 

0. 

0 

TO 

n 

79 

DOUBLE 

@ 

0. 

0 

TO 

21 . 

79 

DOUBLE 

@ 

8, 

0 

TO 

10  . 

79 

0. 

0 

TO 

21 . 

79 

DOUBLE 

@ 

18. 

1 

TO 

18, 

78 

EOF:  SCHDSCRN  .  FMT 
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Ancillary  Training  Module 

*  Program..:  ANCIL.PRG 

SET  SCOREBOARD  OFF 

SET  HEADINGS  OFF 

SET  TALK  OFF 

SET  BELL  OFF 

SET  STATUS  OFF 

SET  ESCAPE  OFF 

SET  CONFIRM  Off 

USE  THESIS  INDEX  LASTNAME 

DO  WHILE  .T. 

*  - Display  menu  options,  centered  on  the  screen. 

*  draw  menu  border  and  print  heading 
CLEAR 

@2.  0  TO  16.79  DOUBLE 
@  3,  3  SAY  [ANCILLARY  TRAINING  MODULE] 

@3.53  SAY  CDOW(DATE() ) f" ,  " +CMONTH ( DATE ( ) ) + " 

"  +LTRIM  (STR(  DAY  ( DATE  ()  )  ,2))+",  "+LTRIM(STR  (YEAR  ( DATE  (  )  )  .4) 
@  4.1  TO  4,78  DOUBLE 

*  - display  detail  lines 

fl  6.10  SAY  11.  PROGRAM  INFORMATION] 

Q  8,10  SAY  [2.  CREATE/EDIT  RECORDS] 

@  10,10  SAY  [3.  SEARCH  DATABASE] 

@  6,45  SAY  [4.  DEFINE/VIEW  FREQUENCY] 

@  8,45  SAY  [5.  MANAGEMENT  REPORTS] 

@  10,45  SAY  [6.  MOBILITY  REPORTS] 

@  12.30  SAY  [0.  EXIT  TO  MAIN  MENU] 

@14,3  SAY  [Last  Update:] 

@  15.4  SAY  LUPDATEO 
selectnum-0 

@  14,27  SAY  "Please  Enter  Your  Choice" 

@  14.54  GET  selectnum  PICTURE  ”9" 

READ 
CLEAR 
DO  CASE 

CASE  selectnum  =  0 
CLEAR 
RETURN 

CASE  selectnum  -  1 
DO  INFOANCI . PRG 
CASE  selectnum  -  2 
DO  EDITA. PRG 
REINDEX 

CASE  selectnum  -  3 
DO  SEARCHA . PRG 
CASE  selectnum  -  4 
DO  ANCIFREQ . PRG 
CASE  selectnum  -  5 
DO  ANCIRPTS . PRG 
CASE  selectnum  -  6 
DO  MOBRPTS . PRG 
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ENDCASE 

ENDDO 

RETURN 

*  EOF:  ANCIL.PRG 

*  Program . :  EDITA.  PRG 

*  Description.:  Allows  editing  of  the  Ancillary  Training 

*  Data . 

REPE  =  "Y" 

DO  WHILE  REPE  <>  "N" 

CLEAR 

@  1,0  to  3.79  DOUBLE 

@  2.10  SAY  [ANCILLARY  TRAINING  CREATE/EDIT  FACILITY! 

0  2,60  SAY  DATEO 

@  7.17  SAY  "ENTER  LAST  NAME  OF  INDIVIDUAL" 

©  5.10  TO  9.70  DOUBLE 
LNAME  =  ' 

@7.52  GET  LNAME 
READ 

COUNT  FOR  LA3T_NAME  =  LNAME  TO  FOUND 
IF  FOUND  =  0 

WAIT  "No  Records  Exist  for  that  Last  Name.  Press  Any 
Key  to  Enter  ■ 

New  Information." 

SET  FORMAT  TO  ANCISCRN 

APPEND  BLANK 

EDIT  FOR  LAST_NAME  *  " 

DELETE  FOR  LAST_NAME  -  " 

SET  FORMAT  TO 

ELSE 

SET  FORMAT  TO  ANCIEBIT 
EDIT  FOR  LAST_NAME  =  LNAME 
SET  FORMAT  TO 
CLEAR 

@  9.9  TO  13,71  DOUBLE 

@  10,19  SAY  "That  is  all  the  Records  with  that  Last  Name" 

©■  11,18  SAY  "Did  You  Find  the  Record  You  Were  Looking  For  ?" 
@  12,37  SAY  "(Y/N)" 

ANSWER  -  '  1 
@  12,42  GET  ANSWER 
READ 

IF  ANSWER  -  1 N ' 

SET  FORMAT  TO  ANCISCRN 
@  15,10  SAY  "  " 

WAIT  "  Press  Any  Key  When  Ready  to  Create  the 

New  Record  ..." 

APPEND  BLANK 

EDIT  FOR  LAST_NAME  -  " 

DELETE  FOR  LAST  NAME  -  " 

SET  FORMAT  TO 
CLEAR 
ENDIF 
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END  IF 
CLEAR 

@  3. • j  TO  7.67  DOUBLE 

@5.16  SAY  "DO  YOU  WANT  TO  CREATE/EDIT  MORE  RECORDS  ( Y/N)  ? 

P.EPE  -  1  ' 

@5,64  GET  REPE 

READ 

ENDDO 

CLEAR 

@  7,17  SAY  "Updating  database.  Please  wait  ..." 

PACK 

*  EOF:  EDITA . PRG 

*  Program . :  INFOANCI.PRG  • 

*  Descr i pt ion . :  Text  program  describing  the  Ancillary 
Training 

*  Module  and  its  use. 

CLEAR 

@  1.0  TO  3.79  DOUBLE 

@2,25  SAY  [ANCILLARY  TRAINING  MODULE] 

@4.2  SAY  1  1 

TEXT 

This  module  was  designed  to  aid  supply  training 
monitors  who  also  track 

and  manage  the  unit  Ancillary  Training  Program  (ATP). 

With  the  new  AFR  50-1 

published,  deleting  the  requirement  for  units  to  maintain 
the  AF  Form  991 

and  mandating  that  base  training  OPRs  document  training, 
the  unit  ATP 

monitor  needs  only  to  monitor  refresher  training.  Most 
refresher  training 

is  at  the  discretion  of  the  MAJCOM. 

Included  in  this  module  are  those  areas  of  training 
where  unit  ATP 

monitors  may  still  be  required  to  monitor  and  document 
refresher  training. 

These  areas  include:  OPSEC.  COMSEC.  PHYSEC.  HUMINT.  and 
Terrorism  Training. 

In  addition,  because  unit  mobility  officers  will  still 
want  visibility 

over  their  mobility  team  training,  the  major  mobility 
training  courses  have 

been  included.  Several  mobility  reports  are  available 
under  menu  option  - 
Mobility  Reports. 

ENDTEXT 

@  1,0  to  21,79  DOUBLE 

WAIT 

CLEAR 
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TEXT 

Menu  Options: 


2.  CREATE/EDIT  RECORDS  -  Allows  the  user  to  create  new  or 
edit  existing 

ancillary  training  records. 

3.  SEARCH  DATABASE  -  Allows  the  user  to  search  the  active 
database  for 

specific  records  and  training  data. 

4.  DEFINE/VIEW  FREQUENCY  -  Allows  the  user  to  derine  the 
frequencies  at 

which  refresher  training  is  due.  The  value  entered 
should  be  in  days. 

5.  MANAGEMENT  REPORTS  -  Several  listings  are  available 
such  as  "training 

due"  listings,  etc. 

6.  MOBILITY  REPORTS  -  Mobi 1 ity-speci f ic  reports  on 
training  due.  etc. 

ENDTEXT 

@  1.0  TO  21,79  DOUBLE 

WAIT 

CLEAR 

RETURN 

*  EOF:  INFOANCI . PRG 

*  Program . :  SEARCHA  .  PRG 

*  Description.:  Allows  the  user  to  search  the  database 
CLEAR 

@  1,0  to  3,79  DOUBLE 

@  2,10  SAY  (ANCILLARY  TRAINING  SEARCH  FACILITY] 

@2.60  SAY  DATEO 

@7,17  SAY  "ENTER  LAST  NAME  OF  INDIVIDUAL" 

@  5,10  TO  9,70  DOUBLE 
LNAME  *  ' 

@7,52  GET  LNAME 
READ 

COUNT  FOR  LAST_NAME  -  LNAME  TO  FOUND 

IF  FOUND  »  0 

CLEAR 

@  9.9  TO  11,71  DOUBLE 

@  10,20  SAY  "No  Records  Exist  for  Last  Name  -  " 

@  10,53  SAY  LNAME 
? 

? 

? 

WAIT  "  Press  any  key  to  return  to 

menu. " 
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ELSE 

CLEAR 

SET  FORMAT  TO  SEARCHA 
EDIT  FOR  LAST_NAME  -  LNAME 
SET  FORMAT  TO 
CLEAR 

©  9.9  TO  11.71  DOUBLE 

@  10,13  SAY  "That  Is  all  the  Records  with  Last  Name  =  " 
@  10.54  SAY  LNAME 
? 

? 

? 

WAIT  "  Press  any  key  to  return  to 

menu." 

END  IF 
CLEAR 

*  EOF:  SEARCHA. PRG 

*  Program. . . . :  SEARCHA. FMT 


§ 

1. 

27 

SAY 

"Ancillary  Training  Record" 

© 

3. 

2 

SAY 

"Last  Name" 

© 

3. 

12 

GET 

THES IS- >LAST_N AME 

© 

3, 

30 

SAY 

“First  Name" 

@ 

3. 

41 

GET 

THESIS->FIRST  NAME 

© 

3. 

53 

SAY 

"Grade" 

© 

3. 

59 

GET 

THESIS- >PAY  GRADE  PICTURE  "AXXXX" 

© 

3. 

66 

SAY 

"DAS" 

© 

3. 

70 

GET 

THESIS- >DTE_ASSND 

© 

5, 

2 

SAY 

"Soc  Security  No" 

© 

5, 

18 

GET 

THESIS- >SSN  PICTURE  "XXX-XX-XXXX" 

© 

5, 

31 

SAY 

"Off  Sym" 

© 

5. 

39 

GET 

THESIS- >OFF  SYM 

© 

5. 

53 

SAY 

"Duty  Ph." 

© 

5, 

62 

GET 

THESIS- >DUTY  PHONE 

© 

5. 

68 

SAY 

"AFSC" 

© 

5. 

73 

GET 

THESIS- >AFSC 

© 

7. 

4 

SAY 

"Training  Dates  (MM/DD/YY) 

Mobl 1 ity 

Team 

Member  (Y/N) " 

© 

7, 

71 

GET 

THESIS- >M0BILITY  PICTURE  "Y" 

© 

10, 

5 

SAY 

"EOR  SABC  CWDTI 

CWDTR 

TQT" 

© 

11. 

3 

GET 

THESIS- >E0R 

© 

11, 

18 

GET 

THESIS->SABC 

© 

11. 

35 

GET 

THESIS- >CWDTI 

© 

11. 

52 

GET 

THESIS- >CWDTR 

© 

11. 

67 

GET 

THESIS->TQT 

© 

15, 

4 

SAY 

"HUMINT  OPSEC  COMSEC 

PHYSEC 

TERRORISM" 

© 

16, 

3 

GET 

THESIS- >RACTHIT 

© 

16. 

18 

GET 

THESIS- >OPSEC 

© 

16, 

35 

GET 

THESIS->COMSEC 

© 

16. 

52 

GET 

THESIS- >PHYSEC AW 

94 


@16,  68  GET  THESIS-  '•PROTTERR 

@19.  11  SAY  "Press  Page  Down  to  see  other  Records  with 
same  Last  Name  .  " 

@  20,  15  SAY  "Press  ESCAPE  to  return  to  exit  search 
facility. " 

@  18,  0  TO  21,  79 

@  2,  0  TO  6,  79  DOUBLE 

@  8.  0  TO  8,  79 

@  0,  0  TO  21,  79  DOUBLE 

4*  EOF:  SEARCHA  .  FMT 


* 

Program 

ANCIEDIT . FMT 

@ 

1, 

27 

SAY 

"Ancillary  Training  Record" 

@ 

3, 

2 

SAY 

"Last  Name" 

@ 

3. 

12 

GET 

THES IS- >LAST_N AME 

@ 

3, 

30 

SAY 

"First  Name" 

@ 

3. 

41 

GET 

THES I S- >F I RST_N AME 

@ 

3, 

53 

SAY 

"Grade" 

@ 

3. 

59 

GET 

THESIS- >PAY  GRADE  PICTURE 

"AXXXX" 

@ 

3, 

66 

SAY 

"DAS" 

© 

3. 

70 

GET 

THESIS- >DTE_ASSND 

© 

5, 

2 

SAY 

"Soc  Security  No" 

© 

5. 

18 

GET 

THESIS- >SSN  PICTURE  "XXX- 

XX-XXXX" 

© 

5, 

31 

SAY 

"Off  Sym" 

@ 

5. 

39 

GET 

THESIS- >OFF  SYM 

@ 

5. 

53 

SAY 

"Duty  Ph." 

© 

5. 

62 

GET 

THES IS- >DUTY  PHONE 

@ 

5. 

68 

SAY 

"AFSC" 

@ 

5, 

73 

GET 

THESIS- >AFSC 

@ 

7. 

4 

SAY 

"Training  Dates  (MM/DD/YY) 

Mobil 

ity 

Team 

Member  (Y/N) " 

@ 

7, 

71 

GET 

THESIS- MOBILITY  PICTURE 

»i  Y  n 

@ 

10. 

5 

SAY 

"EOR  SABC 

CWDTI 

CWDTR 

TQT" 

Q 

11. 

3 

GET 

THESIS- >E0R 

© 

11. 

18 

GET 

THESIS- >SABC 

© 

11. 

35 

GET 

THESIS- >CWDTI 

© 

11. 

52 

GET 

THESIS- >CWDTR 

© 

11. 

67 

GET 

THESIS- >TQT 

© 

15, 

4 

SAY 

"HUMINT  0PSEC 

COMSEC 

PHYSEC 

TERRORISM" 

© 

16. 

3 

GET 

THESIS- >RACTHIT 

© 

16. 

18 

GET 

THESIS- >OPSEC 

© 

16. 

35 

GET 

THESIS- >COMSEC 

© 

16. 

52 

GET 

THESIS- >PHYSECAW 

© 

16, 

68 

GET 

THESIS- >PR0TTERR 

© 

19. 

2 

SAY 

"Press  Page  Down  (Pg  Dn)  to 

view  more  records 

with  same  last  name.  If  record" 

@20,  9  SAY  "is  the  correct  one.  make  input,  and  press 

Ctrl-End  to  save." 

@  18,  0  TO  21,  79 

©  2,  0  TO  6,  79  DOUBLE 
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@  8.  0  TO  8.  79 
@  0.  0  TO  21,  79  DOUBLE 

-*  EOF:  ANCIEDIT . FMT 

*  Program . :  ANCIFREQ.PRG 

*  Description.:  Allows  user  to  define/view  training 
frequencies 

*  for  training  used  in  Ancillary  Training  Data 
Base . 

RESTORE  FROM  ANFREQ . MEM  ADDITIVE 

OC  -  25 

CC  -  25 

PC  -  25 

TC  -  25 

HC  =  25 

EC  -  60 

SC  -  60 

RC  -  60 

QC  -  60 

CLEAR 

DO  WHILE  .T. 

@  1.02  TO  3,78  DOUBLE 
@  1.02  TO  19,78  DOUBLE 
ANSWER  ”  0 

@2,13  SAY  "ANCILLARY  TRAINING  FREQUENCY  CURRENT  VALUES  (IN 
DAYS) " 

@  5,10  SAY  "1.  OPSEC" 

@  5,OC  SAY  FREQOP 
@  7.10  SAY  "2.  COMSEC" 

@  7.CC  SAY  FREQCOM 
@9,10  SAY  "3.  PHYSEC" 

@  9. PC  SAY  FREQPHY 
@  11.10  SAY  "4.  TERRORISM" 

@  11. TC  SAY  FREQTER 
@  13,10  SAY  "5.  HUMINT" 

@  13.HC  SAY  FREQHUM 
@5.45  SAY  "6.  EOR" 

@  5. EC  SAY  FREQEOR 
@7,45  SAY  “7.  SA/BC" 

@  7, SC  SAY  FREQSAB 
@9,45  SAY  "8.  CWDTR" 

@  9.HC  SAY  FREQCWR 
@  11,45  SAY  "9.  TQT" 

@  11. QC  SAY  FREQTQT 
@  13.45  SAY  "0.  EXIT  MENU" 

@  17.23  SAY  "WHICH  DO  YOU  WANT  TO  CHANGE  ?  " 

@  17.53  GET  ANSWER  PICTURE  "9" 

READ 

IF  ANSWER  -  0 
CLEAR 
RETURN 
ENDIF 
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IF  ANSWER  »  1 

@5,32  GET  FREQOP  PICTURE  ••999*' 

READ 

OC  -  32 

END  IF 

IF  AIwWER  -  2 

@7.32  GET  FREQCOM  PICTURE  "999" 
READ 
CC  -  32 
ENDIF 

IF  ANSWER  *  3 

@9,32  GET  FREQPHY  PICTURE  "999" 
READ 
PC  -  32 
ENDIF 

IF  ANSWER  -  4 

@  11,32  GET  FREQTER  PICTURE  "999" 
READ 
TC  -  32 
ENDIF 

IF  ANSWER  -  5 

@  13.32  GET  FREQHUM  PICTURE  "999" 
READ 
HC  -  32 
ENDIF 

IF  ANSWER  -  6 

@5.67  GET  FREQEOR  PICTURE  ‘*999" 
READ 
EC  -  67 
ENDIF 

IF  ANSWER  **  7 

@7.67  GET  FREQS A B  PICTURE  "999" 
READ 
SC  “  67 
ENDIF 

IF  ANSWER  “  8 

@9.67  GET  FREQCWR  PICTURE  "999" 
READ 
RC  -  67 
ENDIF 

IF  ANSWER  m  9 

@  11.67  GET  FREQTQT  PICTURE  "999" 
READ 
QC  -  67 
ENDIF 

SET  SAFETY  OFF 

SAVE  ALL  LIKE  FREQ*  TO  ANFREQ . MEM 
SET  SAFETY  ON 
ENDDO 

*  EOF:  ANFREQ. PRG 


*  Program . :  ANCIRPT5.PRG 

*  Description.:  Management  Reports  for  Ancillary  Training 


RESTORE  FROM  ANFREQ . MEM  ADDITIVE 
CLEAR 

DO  WHILE  .T. 

@  1,0  TO  3,79  DOUBLE 

§2,18  SAY  [ANCILLARY  TRAINING  MANAGEMENT  REPORTS  FACILITY] 

§  1.0  TO  13,79  DOUBLE 

§5,7  SAY  "1.  PERSONNEL  DUE  COMSEC" 

§5,47  SAY  "4.  PERSONNEL  DUE  HUMINT" 

§7,7  SAY  "2.  PERSONNEL  DUE  PHYSEC" 

§7,47  SAY  "5.  PERSONNEL  DUE  OPSEC" 

§9,7  SAY  "3.  PERSONNEL  DUE  P ROT / TERROR ISM" 

§9,47  SAY  "0.  EXIT  REPORTS  MENU" 

§  11.30  SAY  "SELECT  A  NUMBER" 

SELECTNUM  =  0 

§  11,46  GET  SELECTNUM  PICTURE  "9" 

READ 

f*T  TT'A  D 

IF^SELECTNUM  =  0 
RETURN 
END  IF 
PR  -  "N" 

CLEAR 

§  9,15  TO  13,65  DOUBLE 

§  11,17  SAY  "DO  YOU  WANT  THIS  SENT  TO  THE  PRINTER  (Y/N)  ?  ” 
§  11,63  GET  PR  PICTURE  "N" 

READ 

IF  PR  -  "Y" 

CLEAR 

§  5,20  SAY  "MAKE  SURE  PRINTER  IS  ON-LINE  AND  READY  .  . 

7 

WAIT  "  PRESS  ANY  KEY  TO  PRINT 

CLEAR 

SET  PRINT  ON 
ELSE 
CLEAR 

§  5,20  SAY  "USE  CTRL-S  TO  STOP/START  SCROLLING  SCREEN." 

7 

WAIT  "  PRESS  ANY  KEY  TO  BEGIN 

CLEAR 
END  IF 

IF  SELECTNUM  -  1 

?  "ALL  PERSONNEL  DUE  COMSEC  TRAINING  As 

of  ".DATEO 


?  "Name  Grade  COMSEC" 

7 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  COMSEC  -  CTOD("  ")  .OR.  (COMSEC+FREQCOM)  < 
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DATE ( ) 

?  LAST_NAME . FIR3T_NAME , PAVjGRADE . COMSEC 

ENDIF 

SKIP 

ENDDO 

WAIT 

ENDIF 

IF  SELECTNUM  =  2 

?  "ALL  PERSONNEL  DUE  PHYSEC  TRAINING  As 

of  ” , DATE ( ) 

? 

7 

?  "Name  Grade  PHYSEC" 

7 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  PHYSEC AW  -  CTOD ( "  "  1  .OR.  ( PHYSEC AW+FREQPHY)  < 

DATE( ) 

?  LAST_NAME , FIRST_NAME . PAY_GRADE , PHYSECAW 
? 

ENDIF 

SKIP 

ENDDO 

WAIT 

ENDIF 

IF  SELECTNUM  -  3 

?  "ALL  PERSONNEL  DUE  PROTECTION  FROM  TERRORISM  TRAINING 
As  of  ".DATEO 

? 

7 

?  "Name  Grade  PROT/TERR" 

? 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  PROTTERR  -  CTOD{"  ")  .OR.  ( PROTTERR+FREQTER )  < 

DATEO 

?  LAST_NAME , FIRST_NAME , PAY_GRADE , PROTTERR 
? 

ENDIF 

SKIP 

ENDDO 

WAIT 

ENDIF 

IF  SELECTNUM  -  4 

?  "ALL  PERSONNEL  DUE  HUMINT  TRAINING 
As  of  ".DATEO 
? 

? 

?  "Name  Grade  HUMINT" 

? 

GO  TOP 
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DO  WHILE  .NOT.  EOFO 

IF  RACTHIT  =  CTOD ( "  ")  .OR.  ( RA CTH IT + FREQHUM )  < 

DATE ( ) 

?  LAST_NAME . FI RST_NAME , PAY_GRADE , RACTHIT 
? 

END  IF 
SKIP 
ENDDO 
WAIT 
ENDIF 

IF  SELECTNUM  -  5 

?  "ALL  PERSONNEL  DUE  OPSEC  TRAINING  As 

of  " , DATE ( ) 

? 

7 

?  "Name  Grade  OPSEC" 

7 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  OPSEC  -  CTOD ( "  ")  .OR.  ( OPSEC +FREQOP )  <  DATEO 

?  LAST_NAME . FIRST_NAME . PAY_GRADE . OPSEC 
? 

ENDIF 

SKIP 

ENDDO 

WAIT 

ENDIF 

SET  PRINT  OFF 

CLEAR 

ENDDO 

*  EOF:  ANCIRPTS . PRG 

*  Program. . . . :  ANCISCRN.FMT 


@ 

1. 

27 

SAY 

"Ancillary  Training  Record" 

© 

3. 

2 

SAY 

"Last  Name" 

© 

3. 

12 

GET 

THESIS- >LAST_NAME 

© 

3. 

30 

SAY 

"First  Name" 

© 

3. 

41 

GET 

THES IS- >FI RST_N AME 

© 

3. 

53 

SAY 

"Grade" 

© 

3. 

59 

GET 

THESIS- >PAY  GRADE  PICTURE  "AXXXX" 

© 

3. 

66 

SAY 

"DAS" 

© 

3. 

70 

GET 

THESIS- >DTE_ASSND 

© 

5. 

2 

SAY 

"Soc  Security  No" 

© 

5 , 

18 

GET 

THESIS- >SSN  PICTURE  "XXX-XX-XXXX" 

© 

5. 

31 

SAY 

"Off  Sym" 

© 

5, 

39 

GET 

THESIS- >OFF  SYM 

© 

5, 

53 

SAY 

"Duty  Ph." 

© 

5. 

62 

GET 

THESIS- >DUTY  PHONE 

© 

5. 

68 

SAY 

"AFSC" 

© 

5. 

73 

GET 

THES I S- >AFSC 

© 

7, 

4 

SAY 

"Training  Dates  (MM/DD/YY) 

Mobility 

Team 

Member  (Y/N) " 
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@ 

7,  71 

GET 

THESIS- ^MOBILITY  PICTURE  "Y 

@ 

10.  5 

SAY 

"EOR  SABC 

CWDTR 

TQT" 

@ 

11 .  3 

GET 

THESIS- >EOR 

@ 

11.  18 

GET 

THESIS->SABC 

@ 

11,  35 

GET 

THES I S- >CWDT I 

@ 

11,  52 

GET 

THES IS- >CWDTR 

@ 

11,  67 

GET 

THESIS->TQT 

@ 

15,  4 

SAY 

"HUMINT  OPSEC 

PHYSEC 

TERRORISM" 

@ 

16,  3 

GET 

THESIS- >RACTHIT 

@ 

16,  18 

GET 

THESIS- >OPSEC 

@ 

16,  35 

GET 

THESIS- >COMSEC 

@ 

16,  52 

GET 

THESIS->PHYSECAW 

@ 

16,  68 

GET 

THES IS- >PROTTERR 

@ 

19.  18 

SAY 

"Press  Ctrl-End  when  finished 

@ 

20,  27 

SAY 

"to  save  training  record." 

@ 

18,  0 

TO  2 

:l ,  79 

@ 

2,  0 

TO 

6 ,  79  DOUBLE 

@ 

8,  0 

TO 

8,  79 

@ 

0,  0 

TO  21,  79  DOUBLE 

•4  * 

:  EOF:  ANCISCRN. FMT 

* 

Program 

:  MOBRPTS . PRG 

CWDTI 


COMSEC 


entering  data" 


*  Description.:  Management  Reports  for  Mobility  Training; 


CLEAR 

DO  WHILE  .T. 

@  1.0  TO  3,79  DOUBLE 

@  2,18  SAY  [MOBILITY  TRAINING  MANAGEMENT  REPORTS  FACILITY] 

@  1,0  TO  15,79  DOUBLE 

@  5,10  SAY  [1.  MOBILITY  TRAINING  DATA  DUMP] 

@7,10  SAY  [2.  PERSONNEL  DUE  CWDTI] 

@9,10  SAY  [3.  PERSONNEL  DUE  CWDTR] 

@5,46  SAY  [4.  PERSONNEL  DUE  TQT] 

@7,46  SAY  [5.  PERSONNEL  DUE  SABC] 

@9.46  SAY  [6.  PERSONNEL  DUE  EOR] 

@  11,28  SAY  [0.  EXIT  REPORTS  MENU] 

@  13,30  SAY  "SELECT  A  NUMBER" 

3ELECTNUM  -  0 

@  13,46  GET  SELECTNUM  PICTURE  "9" 

READ 

Cl  F&R 

IF  SELECTNUM  -  0 
RETURN 
END  IF 
PR  -  "N" 

CLEAR 

@  9,15  TO  13,65  DOUBLE 

@  11,17  SAY  "DO  YOU  WANT  THIS  SENT  TO  THE  PRINTER  (Y/N)  ?  " 
@  11,63  GET  PR  PICTURE  "N" 

READ 

IF  PR  -  "Y" 
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CLEAR 

§  5,20  SAY  "MAKE  SURE  PRINTER  IS  ON-LINE  AND  READY  .  .  . 

? 

WAIT  "  PRESS  ANY  KEY  TO  PRINT 

SET  PRINT  ON 
ELSE 
CLEAR 

@5,20  SAY  "USE  CTRL-S  TO  STOP/START  SCROLLING  SCREEN  " 

7 

WAIT  "  PRESS  ANY  KEY  TO  BEGIN 

CLEAR 
END  IF 

IF  SELECTNUM  -  1 

?  "ALL  MOBILITY  PERSONNEL  TRAINING  DATA 
" , DATE ( ) 


?  "Name  Grade  CWDTI  CWDTR 

SA/BC  TQT  EOR" 

7 

GO  TOP 

DO  WHILE  .NOT.  EOFO 
IF  MOBILITY 
? 

LASTiNAME , FIRST_NAME . PAY_GRADE , CWDTI , CWDTR , SABC , TQT , EOR 
? 

ENDIF 

SKIP 

ENDDO 

SET  PRINT  OFF 

WAIT 

CLEAR 

ENDIF 

IF  SELECTNUM  -  2 

?  "PERSONNEL  DUE  INITIAL  CHEMICAL  WARFARE  DEFENSE  TRAINING 
" , DATE ( ) 

7 

? 

7 

?  "Name  Grade" 

7 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  MOBILITY  .AND.  CWDTI  -  CTOD("  ") 

?  LAST_NAME,"  " ,FIRST_NAME, "  " , PAY_GRADE 

? 

ENDIF 

SKIP 

ENDDO 

SET  PRINT  OFF 

WAIT 

CLEAR 
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END  IF 

IF  SELECTNUM  =  3 

?  "PERSONNEL  DUE  REFRESHER  CHEMICAL  WARFARE  DEFENSE  TRAINING 
" , DATE ( ) 

? 

7 

7 

?  "Name  Grade  CWDTI 

CWDTR" 

? 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  MOBILITY  .AND.  (CMONTH(CWDTR+335)  =  CMONTH ( DATE ( ) ) 

.  OR .  i 

CMONTH (CWDTI +335)  -  CMONTH ( DATE ()) ) 

?LAST_NAME , "  " . FIRST_NAME . "  " . PAY_GRADE , "  " . CWDTI . " 

" . CWDTR 

7 

END  IF 

SKIP 

ENDDO 

SET  PRINT  OFF 

WAIT 

CLEAR 

ENDIF 

IF  SELECTNUM  ■  4 

?  "PERSONNEL  DUE  TASK  QUALIFICATION  TRAINING 
" , DATE ( ) 

? 

7 

? 

?  "Name  Grade  CWDTI 

CWDTR  TQT" 

? 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  MOBILITY  .AND.  CMONTH (TQT+ 155 )  -  CMONTH ( DATE () ) 

?LAST_NAME , "  " , FIRST_NAME, "  " , PAY_GRADE, "  ", CWDTI," 

", CWDTR."  ",TOT 
? 

ENDIF 

SKIP 

ENDDO 

SET  PRINT  OFF 

WAIT 

CLEAR 

ENDIF 

IF  SELECTNUM  -  5 

?  "PERSONNEL  DUE  SELF  AID  AND  BUDDY  CARE  TRAINING 

".DATEO 

? 

? 
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0 

?  "Name  Grade  SA/BC" 

GO  TOP 

DO  WHILE  .NOT.  EOF() 

IF  MOBILITY  .AND.  (SABC  -  CTOD("  “)  .OR. 

CMONTH (SABC+335)  =  CMONTH ( DATE ( ) ) ) 

?LAST_NAME , "  " , FIRST_NAME, "  " . PAY_GRADE , "  " , SABC 

? 

END  IF 

SKIP 

ENDDO 

SET  PRINT  OFF 

WAIT 

CLEAR 

END  IF 

IF  SELECTNUM  -  6 

?  "PERSONNEL  DUE  EXPLOSIVE  ORDNANCE  RECOGNITION  TRAINING 
"  .DATEO 
? 

? 

? 

?  "Name  Grade  EOR" 

? 

GO  TOP 

DO  WHILE  .NOT.  EOF() 

IF  MOBILITY  .AND.  (EOR  -  CTOD("  ")  .OR.  1 

CMONTH (EOR+335)  -  CMONTH ( DATE {)) ) 

?LAST_NAME, "  " , FIRST_NAME, "  " , PAY_GRADE , "  "/EOR 

? 

ENDIF 

SKIP 

ENDDO 

SET  PRINT  OFF 

WAIT 

CLEAR 

ENDIF 

ENDDO 

*  EOF:  MOBRPTS . PRG 
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Miscellaneous  Training  Module 

*  Program . .-  MISC.PRG 

*  Description..-  Program  Module  for  Miscellaneous  Training 
SET  SCOREBOARD  OFF 

SET  HEADINGS  OFF 

SET  TALK  OFF 

SET  BELL  OFF 

SET  STATUS  OFF 

SET  ESCAPE  OFF 

SET  CONFIRM  Off 

USE  THESIS  INDEX  LASTNAME 

DO  WHILE  .T. 

*  - Display  menu  options,  centered  on  the  screen. 

*  draw  menu  border  and  print  heading 
CLEAR 

@  2.  0  TO  16,79  DOUBLE 

@  3.  3  SAY  [MISCELLANEOUS  TRAINING  MODULE] 

@  3,53  SAY  CDOW ( DATE ())+",  "+CMONTH (DATE () ) +" 

" +LTRIM ( STR ( DAY ( DATE ( ) ) .2))+",  " +LTRIM(STR( YEAR ( DATE ( ) ) ,4) ) 
@  4,1  TO  4,78  DOUBLE 

*  - display  detail  lines 

@  6,10  SAY  [1.  PROGRAM  INFORMATION] 

@  8,10  SAY  [2.  CREATE/EDIT  RECORDS] 

@  10,10  SAY  [3.  SEARCH  DATABASE] 

@  6,45  SAY  [4.  DEFINE/ VIEW  HEADINGS/FREQ] 

@  8,45  SAY  [5.  MANAGEMENT  REPORTS) 

@  10,45  SAY  [0.  EXIT  TO  MAIN  MENU] 

@14,3  SAY  [Last  Update:] 

@  15,4  SAY  LUPDATEO 
selectnum-0 

@  14,27  SAY  ’’Please  Enter  Your  Choice" 

@  14,54  GET  selectnum  PICTURE  "9" 

READ 
CLEAR 
DO  CASE 

CASE  selectnum  -  0 
CLEAR 
RETURN 

CASE  selectnum  -  1 
DO  INFOMISC.PRG 
CASE  selectnum  -  2 
DO  EDITM.PRG 
REINDEX 

CASE  selectnum  -  3 
DO  SEARCHM .  PRG 
CASE  selectnum  -  4 
DO  MISCFREQ.PRG 
CASE  selectnum  -  5 
DO  MISCRPTS . PRG 

ENDCASE 

ENDDO 
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RETURN 

*  EOF:  MISC.PRG 

*  Program . :  INFOMISC.PRG 

*  Description.:  Text  program  describing  the  Miscellaneous 
Training 

*  Module  and  its  use 
CLEAR 

@1,23  SAY  [MISCELLANEOUS  TRAINING  MODULE] 

@2,2  SAY  '  ‘ 

TEXT 

This  module  was  designed  to  aid  supply  training 
monitors  who,  in  addition 

to  managing  the  customer  training  program,  must  also 
manage  several  areas  of 

miscellaneous  training.  Since  this  type  of  training 
varies  from  unit  to 

unit  the  data  field  are  labled  MISC1.  MISC2 . MISC10. 

The  user  can  define 

each  of  these  fields  with  names  he/she  chooses. 

Menu  Options: 

2.  CREATE/EDIT  RECORDS  -  Allows  the  user  to  create  new  or 
edit  existing 

miscellaneous  training  records. 

3.  SEARCH  DATABASE  -  Allows  the  user  to  search  the  active 
database  for 

specific  records  and  training  data. 

4.  DEFINE/VIEW  HEADINGS/FREQ  -  Allows  the  user  to  define 
the  headings  used 

by  each  of  the  miscellaneous  training  fields  and 
define  the  frequency  at 

which  refresher  training  is  due. 

5.  MANAGEMENT  REPORTS  -  "Training  due"  listings  for  each 
of  the  ten 

miscellaneous  training  areas. 

ENDTEXT 

@  0,0  to  2.79  DOUBLE 
@  0.0  to  22,79  DOUBLE 
wait 

*  EOF:  INFOMISC.PRG 

-i 

*  Program . :  EDITM.PRG 

*  Description..-  Allows  editing  of  the  Miscellaneous  Training 
REPE  -  "Y" 

RESTORE  FROM  MN AMES .MEM  ADDITIVE 
DO  WHILE  REPE  <>  “N" 

CLEAR 

@  1,0  to  3,79  DOUBLE 
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©2.10  SAY  [MISCELLANEOUS  TRAINING  CREATE/EDIT  FACILITY] 
@2.60  SAY  DATEO 

@7.17  SAY  "ENTER  LAST  NAME  OF  INDIVIDUAL" 

@  5.10  TO  9.70  DOUBLE 
LNAME  -  ' 

@7.52  GET  LNAME 
READ 

COUNT  FOR  LAST_NAME  *  LNAME  TO  FOUND 
IF  FOUND  -  0 

WAIT  "No  Records  Exist  for  that  Last  Name.  Press  Any 
Key  to  Enter  ■ 

New  Information." 

SET  FORMAT  TO  MISCSCRN 

APPEND  BLANK 

EDIT  FOR  LAST_NAME  -  ” 

DELETE  FOR  LAST_NAME  -  " 

SET  FORMAT  TO 

ELSE 

SET  FORMAT  TO  MISCEDIT  ' 

EDIT  FOR  LAST_NAME  =  LNAME 

SET  FORMAT  TO 

CLEAR 

@  9.9  TO  13.71  DOUBLE 

@  10,19  SAY  "That  is  all  the  Records  with  that  Last  Name" 

@  11,18  SAY  "Did  You  Find  the  Record  You  Were  Looking  For  ? 
@  12,37  SAY  "(Y/N)" 

ANSWER  -  ’  1 

@  12.42  GET  ANSWER 
READ 

IF  ANSWER  -  1 N 1 

SET  FORMAT  TO  MISCSCRN 
@  15,10  SAY  "  " 

WAIT  "  Press  Any  Key  When  Ready  to  Create  the 

New  Record  ..." 

APPEND  BLANK 

EDIT  FOR  LAST_NAME  -  " 

DELETE  FOR  LAST_NAME  =  " 

SET  FORMAT  TO 
CLEAR 
END  IF 
ENDIF 
CLEAR 

@  3,13  TO  7,67  DOUBLE 

@5.16  SAY  "DO  YOU  WANT  TO  CREATE/EDIT  MORE  RECORDS  (Y/N)  ? 

REPE  -  *  1 

@5,64  GET  REPE 

READ 

ENDDO 

CLEAR 

@7,17  SAY  "Updating  database.  Please  wait  .  . 

PACK 

*  EOF:  EDITM.PRG 
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*  Program....:  MISCEDIT . FMT 


(d 

1  .  23 

SAY 

"Miscellaneous  Training  Data 

Record" 

@ 

4.  7 

SAY 

"Last  Name" 

@ 

4.  17 

GET 

THESIS- VLAST  NAME 

@ 

4,  35 

SAY 

"First  Name" 

@ 

4.  46 

GET 

THESIS- >F I RST  NAME 

@ 

4.  59 

SAY 

"Pay  Grade" 

@ 

4,  69 

GET 

THESIS- >PAY_GRADE  PICTURE  " 

AXXXX" 

@ 

7,  3 

SAY 

"Social  Security  No." 

@ 

7.  23 

GET 

THESIS- >SSN  PICTURE  "999-99 

-9999" 

@ 

7.  36 

SAY 

"Office  Symbol" 

a 

7,  50 

GET 

THES IS- >OFF_5 YM 

@ 

7,  63 

SAY 

"Duty  Phone" 

@ 

7.  74 

GET 

THES IS- >DUTY_PHONE  PICTURE 

"9999" 

@ 

9.  27 

SAY 

"Training  Dates  (MM/DD/YY)" 

@ 

12.  6 

SAY 

"MISC  1  "  MISC  2 

MISC 

3 

MISC  4 

MISC  5" 

@ 

13,  5 

GET 

THES I S- >MI SC 1 

@ 

13,  20 

GET 

THESIS- >MISC2 

@ 

13.  35 

GET 

THESIS- >MISC3 

@ 

13.  51 

GET 

THESIS- >MISC4 

@ 

13,  65 

GET 

THESIS- >MISC5 

@ 

16,  6 

SAY 

"MISC  6  MISC  7 

MISC 

8 

MISC  9 

MISC  10" 

@ 

17.  5 

GET 

THESIS- >MISC6 

@ 

17.  20 

GET 

THESIS- >MISC7 

@ 

17,  35 

GET 

THESIS- >MISC8 

@ 

17.  51 

GET 

THESIS- >MISC9 

@ 

17,  65 

GET 

THESIS->MISC10 

@ 

20,  3 

SAY 

"Press  Page  Down  (Pg  Dn)  to  view  more  records 

with  same 

last 

name.  If  record" 

© 

21.  10 

SAY 

"is  the  correct  on.  make  input,  and 

press 

Ctrl -End 

to  save . " 

@ 

0,  0 

TO 

2 ,  79  DOUBLE 

@ 

8,  0 

TO  10,  79 

@ 

19,  0 

TO  19.  79 

@ 

0,  0 

TO  22.  79  DOUBLE 

-r *  EOF:  MISCEDIT. FMT 

*  Program . :  SEARCHM. PRG 

*  Description.:  Allows  the  user  to  search  the  database 
CLEAR 

@  1.0  to  3,79  DOUBLE 

@2.10  SAY  [MISCELLANEOUS  TRAINING  SEARCH  FACILITY] 
@2.60  SAY  DATEO 

@7.17  SAY  "ENTER  LAST  NAME  OF  INDIVIDUAL" 

@  5,10  TO  9,70  DOUBLE 
LNAME  ”  ' 

@7,52  GET  LNAME 
READ 

COUNT  FOR  LAST_NAME  -  LNAME  TO  FOUND 
IF  FOUND  -  0 
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CLEAR 

©  9.9  TO  11.71  DOUBLE 

©  10.20  SAY  "No  Records  Exist  for  Last  Name  -  " 

©  10.53  SAY  LNAME 

o 

? 

? 

WAIT  "  Press  any  key  to  return  to 

menu .  " 

ELSE 

CLEAR 

SET  FORMAT  TO  SEARCHM 
EDIT  FOR  LAST_NAME  -  LNAME 
SET  FORMAT  TO 
CLEAR 

©  9,9  TO  11,71  DOUBLE 

@  10,13  SAY  "That  is  all  the  Records  with  Last  Name  =  " 

@  10,54  SAY  LNAME 

? 

? 

? 

WAIT  "  Press  any  key  to  return  to 

menu. " 

ENDIF 

CLEAR 

*  EOF:  SEARCHM. PRG 


* 

Program 

:  SEARCHM. FMT 

@ 

1. 

23 

SAY 

"Miscellaneous  Training  Data  Record 

© 

4. 

7 

SAY 

"Last  Name" 

§ 

4, 

17 

GET 

THESIS- >LAST  NAME 

@ 

4, 

35 

SAY 

"First  Name" 

© 

4. 

46 

GET 

THESIS- >F I RST  NAME 

@ 

4, 

59 

SAY 

"Pay  Grade" 

© 

4. 

69 

GET 

THESIS- >P A Y_GRADE  PICTURE  "AXXXX" 

@ 

7. 

3 

SAY 

"Social  Security  No." 

© 

7. 

23 

GET 

THESIS- >SSN  PICTURE  "999-99-9999" 

© 

7. 

36 

SAY 

"Office  Symbol" 

© 

7. 

50 

GET 

THES IS- >0FF_SYM 

© 

7. 

63 

SAY 

"Duty  Phone" 

© 

7, 

74 

GET 

THESIS- >DUTY  PHONE  PICTURE  "9999" 

© 

9, 

27 

SAY 

"Training  Dates  (MM/DD/YY)" 

© 

12, 

6 

SAY 

"MISC  1  MISC  2  MISC 

MISC 

4 

MISC  5" 

© 

13, 

5 

GET 

THESIS- >MISC1 

© 

13. 

20 

GET 

THESIS- >MISC2 

© 

13, 

35 

GET 

THESIS- >MI SC 3 

© 

13, 

51 

GET 

THESIS- >MISC4 

© 

13, 

65 

GET 

THESIS- >MISC5 

© 

16. 

6 

SAY 

"MISC  6  MISC  7  MISC 

MISC 

9 

MISC  10" 

@17.  5  GET  THESIS- >MISC6 

@17.  20  GET  THESIS- >MISC7 
@17.  35  GET  THESIS- >MISC8 
@  17.  51  GET  THESIS- >MISC9 
@17,  65  GET  THES I S- >MI SC 1 0 

@20,  10  SAY  “Press  Page  Down  to  see  other  Records  with 
same  Last  Name . " 

@21,  18  SAY  “Press  ESCAPE  to  exit  search  facility." 

@  0.  0  TO  2.  79  DOUBLE 

©  8,  0  TO  10,  79 

@19.  0  TO  19.  79 

@  0,  0  TO  22.  79  DOUBLE 

EOF:  SEARCHM .  FMT 

*  Program . :  MI5CFREQ .  PRG 

*  Description.:  Allows  user  to  define/view  training 
frequencies 

*  and  Headings  for  training  used  in 
Miscel laneous 

*  Training  Data  Base. 

RESTORE  FROM  MI FREQ. MEM  ADDITIVE 
RESTORE  FROM  MNAMES . MEM  ADDITIVE 
CLEAR 

DO  WHILE  .T. 

@  1,02  TO  3,78  DOUBLE 
@  1,02  TO  19,78  DOUBLE 
ANSWER  *  "E" 

@2,7  SAY  “MISCELLANEOUS  TRAINING  HEADINGS/FREQUENCY  (IN 
DAYS)  CURRENT  VALUES" 

@  5,10  SAY  "1.  “ 

@5,14  SAY  M1NAME 

@5,32  SAY  FREQM1  PICTURE  "999" 

@5,45  SAY  "6.  " 

@  5,49  SAY  M6NAME 

@5,67  SAY  FREQM6  PICTURE  "999" 

@  7,10  SAY  "2.  " 

@7.14  SAY  M2NAME 

@7,32  SAY  FREQM2  PICTURE  "999" 

@  7.45  SAY  "7.  " 

@7,49  SAY  M7NAME 

@7,67  SAY  FREQM7  PICTURE  "999" 

@9,10  SAY  "3.  ” 

@9,14  SAY  M3NAME 

@9.32  SAY  FREQM3  PICTURE  "999" 

@9.45  SAY  "8.  M 

@9.49  SAY  M8NAME 

@9,67  SAY  FREQM8  PICTURE  "999" 

@  11,10  SAY  "4.  " 

@  11,14  SAY  M4NAME 
@  11,32  SAY  FREQM4  PICTURE  "999" 

©  11,45  SAY  "9.  " 

@  11,49  SAY  M9NAME 
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@  11.67  SAY  FREQM9  PICTURE  "999" 

@  13.10  SAY  "5.  " 

@  13.14  SAY  M5NAME 

@  13,32  SAY  FREQM5  PICTURE  "999,, 

@  13,45  SAY  "0.  “ 

@  13.49  SAY  M10NAME 
@  13,67  SAY  FREQM10  PICTURE  ,,999n 
@  15,34  SAY  "E.  EXIT  MENU" 

@  17,26  SAY  "WHICH  DO  YOU  WANT  TO  CHANGE  ? 
@  17,56  GET  ANSWER  PICTURE  "X" 

READ 

IF  ANSWER  -  "E" 

CLEAR 
RETURN 
END  IF 

IF  ANSWER  -  "1" 

@5.14  GET  M1NAME  PICTURE  "XXXXXXXXXX" 
READ 

@5.32  GET  FREQM1  PICTURE  "999" 

READ 
END  IF 

IF  ANSWER  -  "2" 

@  7.14  GET  M2NAME  PICTURE  "XXXXXXXXXX" 

READ 

@7,32  GET  FREQM2  PICTURE  "999" 

READ 
END  IF 

IF  ANSWER  -  "3" 

@9,14  GET  M3NAME  PICTURE  "XXXXXXXXXX" 
READ 

@9,32  GET  FREQM3  PICTURE  "999" 

READ 

ENDIF 

IF  ANSWER  -  "4" 

@  11,14  GET  M4NAME  PICTURE  "XXXXXXXXXX" 
READ 

@  11,32  GET  FREQM4  PICTURE  "999" 

READ 

ENDIF 

IF  ANSWER  -  "5" 

@  13,14  GET  M5NAME  PICTURE  "XXXXXXXXXX" 
READ 

@  13.32  GET  FREQM5  PICTURE  "999" 

READ 

ENDIF 

IF  ANSWER  -  "6" 

@5,49  GET  M6NAME  PICTURE  "XXXXXXXXXX" 
READ 

@5.67  GET  FREQM6  PICTURE  "999" 

READ 

ENDIF 

IF  ANSWER  -  "7" 
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©  7.49  GET  M7NAME  PICTURE  "XXXXXXXXXX" 

READ 

@7,67  GET  FREQM7  PICTURE  11 999" 

READ 
END  IF 

IF  ANSWER  -  '‘8” 

©  9,49  GET  M8NAME  PICTURE  •'XXXXXXXXXX-' 

READ 

@9,67  GET  FREQM8  PICTURE  "999" 

READ 
END  IF 

IF  ANSWER  ”  "9" 

©  11.49  GET  M9NAME  PICTURE  "XXXXXXXXXX" 
READ 

@  11,67  GET  FREQM9  PICTURE  "999" 

READ 
END  IF 

IF  ANSWER  -  "0" 

@  13.49  GET  M10NAME  PICTURE  "XXXXXXXXXX" 
READ 

©  13,67  GET  FREQM10  PICTURE  "999" 

READ 
END  IF 

SET  SAFETY  OFF 

SAVE  ALL  LIKE  FREQM*  TO  MI FREQ. MEM 
SAVE  ALL  LIKE  M*  NAMES  TO  MNAMES . MEM 
SET  SAFETY  ON 
ENDDO 

*  EOF:  M1SCFREQ . PRG 


* 

Program 

.  .  .  .  : 

MISCSCRN . FMT 

© 

1 . 

23 

SAY 

"Miscellaneous  Training  Data  Record" 

@ 

4. 

7 

SAY 

"Last  Name" 

© 

4. 

17 

GET 

THESIS- >L AST  NAME 

@ 

4. 

35 

SAY 

"First  Name" 

© 

4. 

46 

GET 

THESIS- >FIRST  NAME 

© 

4. 

59 

SAY 

"Pay  Grade" 

© 

4, 

69 

GET 

THESIS- >PAY_GRADE  PICTURE  "AXXXX" 

© 

7. 

3 

SAY 

"Social  Security  No." 

© 

7. 

23 

GET 

THESIS- >SSN  PICTURE  "999-99-9999" 

© 

7. 

36 

SAY 

"Office  Symbol" 

© 

7, 

50 

GET 

THESIS- >OFF_SYM 

© 

7. 

63 

SAY 

"Duty  Phone" 

© 

7. 

74 

GET 

THESIS- >DUTY  PHONE  PICTURE  "9999" 

© 

9. 

27 

SAY 

"Training  Dates  (MM/DD/YY)" 

© 

12. 

5 

SAY 

M1NAME+"  "+M2NAME+"  "-t-M3NAMEf 

"+M4NAME+ 

it 

"+M5NAME 

© 

13. 

5 

GET 

THESIS- >MI SCI 

© 

13. 

20 

GET 

THESIS- >MISC2 

© 

13. 

35 

GET 

THESIS- >MISC3 

© 

13. 

51 

GET 

THESIS- >MISC4 

© 

13. 

65 

GET 

THESIS- >MISC5 
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@16.  5  3 AY  M6NAME+"  "+M7NAME+"  "+M8NAME+" 

"+M9NAME+"  "+M10NAME 

@  17.  5  GET  THESIS- >MISC6 

@  17.  20  GET  THESIS- >MISC7 

a  17.  35  GET  THESIS- >MISC8 

@17.  51  GET  THESIS- >MISC9 

@17.  65  GET  THES I S- >MI SC 1 0 

@  20,  18  SAY  "Press  Ctrl-End  when  finished  entering  data" 
@21.  25  SAY  "to  save  training  record." 

@  0.  0  TO  2.  79  DOUBLE 

@  8.  0  TO  10.  79 

@19.  0  TO  19,  79 

@  0,  0  TO  22.  79  DOUBLE 

■**  EOF:  MISCSCRN . FMT 

*  Program . :  MISCRPTS.PRG 

*  Description. :  Reports  for  Misc  Training 
RESTORE  FROM  MNAMES . MEM  ADDITIVE 
RESTORE  FROM  MI FREQ .MEM  ADDITIVE 

CLEAR 

DO  WHILE  .T. 

@  1,0  TO  3,79  DOUBLE 

@2,18  SAY  [MISCELLANEOUS  TRAINING  MANAGEMENT  REPORTS 
FACILITY] 

@  1,0  TO  19,79  DOUBLE 
@  5.7  SAY  "1.  PERSONNEL  DUE  " 

@5,24  SAY  M1NAME 
@  5,47  SAY  "6.  PERSONNEL  DUE  " 

@5,64  SAY  M6NAME 
@  7.7  SAY  "2.  PERSONNEL  DUE  " 

@7,24  SAY  M2NAME 

@7,47  SAY  "7.  PERSONNEL  DUE  " 

@7.64  SAY  M7NAME 

@9.7  SAY  "3.  PERSONNEL  DUE  " 

@9,24  SAY  M3NAME 
@  9.47  SAY  "8.  PERSONNEL  DUE  " 

@9,64  SAY  M8NAME 
@  11,7  SAY  "4.  PERSONNEL  DUE  " 

@  11.24  SAY  M4NAME 
@  11.47  SAY  "9.  PERSONNEL  DUE  " 

@  11,64  SAY  M9NAME 
@  13.7  SAY  "5.  PERSONNEL  DUE  " 

@  13,24  SAY  M5NAME 
@  13,47  SAY  "0.  PERSONNEL  DUE  " 

@  13,64  SAY  M10NAME 
@  15,28  SAY  IE.  EXIT  REPORTS  MENU] 

@  17,30  SAY  "SELECT  A  NUMBER" 

SELECTNUM  -  "E" 

@  17,46  GET  SELECTNUM  PICTURE  "X" 

READ 

CLEAR 

IF  SELECTNUM  -  "E" 
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RETURN 
END  IF 
PR  =  "N" 

©  9.15  TO  13.65  DOUBLE 

©  11.17  SAY  “DO  YOU  WANT  THIS  SENT  TO  THE  PRINTER  (Y/N)  ?  ” 

©  11.63  GET  PR  PICTURE  "N" 

READ 

IF  PR  -  "Y" 

CLEAR 

©  5,20  SAY  "MAKE  SURE  PRINTER  IS  ON-LINE  AND  READY  .  .  . " 

? 

WAIT  “  PRESS  ANY  KEY  TO  PRINT  “ 

SET  PRINT  ON 
ELSE 

clear 

©  5.20  SAY  “USE  CTRL-S  TO  STOP/START  SCROLLING  SCREEN  “ 

WAIT  "  PRESS  ANY  KEY  TO  BEGIN  " 

CLEAR 
END  IF 

IF  SELECTNUM  -  "1“ 

?  "ALL  PERSONNEL  DUE" , RTRIM(MINAME) , "TRAINING  As 

of  ".DATEO 

7 

?  "Name  Grade  '.M1NAME 

? 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  MISC1  -  CTOD( "  ")  .OR.  (MISC1+FREQM1 )  <  DATEO 

?  LAST_NAME . FIRST_NAME . PAY_GRADE . MISC1 

7 

END  IF 
SKIP 
ENDDO 
WAIT 
END  IF 

IF  SELECTNUM  -  "2" 

?  "ALL  PERSONNEL  DUE" ,RTRIM(M2NAME) . "TRAINING  As 

of  ".DATEO 
? 

? 

?  "Name  Grade  ".M2NAME 

? 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  MISC2  -  CTOD ( "  ")  .OR.  (MISC2+FREQM2 )  <  DATEO 

?  LAST_NAME.FIRST_NAME.PAY  GRADE, MISC2 

7 

ENDIF 

SKIP 

ENDDO 

WAIT 
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END  IF 

IF  SELECTNUM  -  3" 

?  "ALL  PERSONNEL  DUE" , RTRIM (M3NAME) , "TRAINING 
As  of  ".DATEO 
7 
? 

?  "Name  Grade  " , M3NAME 

7 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  MI  SC  3  -  CTOD(  “  ")  .OR.  (MISC3+FREQM3)  <  DATEO 

?  LAST_NAME, FIRST_NAME, PAY_GRADE,MISC3 

7 

END  IF 
SKIP 
ENDDO 
WAIT 
END  IF 

IF  SELECTNUM  -  " 4 " 

?  "ALL  PERSONNEL  DUE" . RTRIM (M4NAME) . "TRAINING  As 

of  ",  DATEO 

7 

7 

?  "Name  Grade  " . M4NAME 

7 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  MISC4  -  CTOD ( "  ")  .OR.  (MISC4+FREQM4)  <  DATEO 

?  LAST_NAME.FIRST_NAME.PAY  GRADE. MISC4 

? 

END  IF 
SKIP 
ENDDO 
WAIT 
END  IF 

IF  SELECTNUM  -  “5” 

?  “ALL  PERSONNEL  DUE" , RTRIM (M5NAME) . "TRAINING  As 

of  ".DATEO 
? 

? 

?  "Name  Grade  " . M5NAME 

7 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  MISC5  -  CTOD( "  ")  .OR.  (MISC5+FREQM5)  <  DATEO 

?  LAST_NAME, FIRST  NAME , P AY_GRADE . MI SC5 

7 

ENDIF 

3KIP 

ENDDO 

WAIT 

ENDIF 
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IF  SELECTNUM  -  "6" 

?  "ALL  PERSONNEL  DUE" . RTRIM(M6NAME) . "TRAINING 
As  of  "  .DATEO 
7 
7 

?  "Name  Grade  " . M6NAME 

7 

GO  TOP 

DO  WHILE  .NOT.  EOF() 

IF  MISC6  -  CTOD ( "  ")  .OR.  (MISC6+FREQM6 )  <  DATEO 

?  LAST_NAME , FIRST_NAME . PAY_GRADE . MISC6 

7 

END  IF 
SKIP 
ENDDO 
WAIT 
END  IF 

IF  SELECTNUM  -  "7" 

?  "ALL  PERSONNEL  DUE" ,RTRIM(M7NAME) . "TRAINING  As 

of  ".DATEO 

7 

7 

?  "Name  Grade  " .M7NAME 

7 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  MISC7  -  CTOD ( "  ")  .OR.  (MISC7+FREQM7)  <  DATEO 

?  LAST_NAME . FIRST_NAME . PAYJ3RADE , MISC7 
? 

ENDIF 

SKIP 

ENDDO 

WAIT 

ENDIF 

IF  SELECTNUM  -  "8" 

?  "ALL  PERSONNEL  DUE" . RTRIM(M8NAME) , "TRAINING  As 

of  ".DATEO 
? 

7 

?  "Name  Grade  " , M8NAME 

? 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  MISC8  -  CTOD ( "  ")  .OR.  (MISC8+FREQM8)  <  DATEO 

?  LAST  NAME. FIRST  NAME , PAY_GRADE . MISC8 
? 

ENDIF 

SKIP 

ENDDO 

WAIT 

ENDIF 

IF  SELECTNUM  -  "9" 
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?  "ALL  PERSONNEL  DUE" , RTRIM(M9NAME) , "TRAINING 
As  of  " , DATE ( ) 

7 

7 

?  "Name  Grade  ".M9NAME 

7 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  MISC9  -  CTOD ( "  ")  .OR.  (MISC9+FREQM9 )  <  DATEO 

?  LAST_NAME . FIRST_NAME , PAY_GRADE . MI SC 9 

7 

END  IF 
SKIP 
ENDDO 
WAIT 
END  IF 

IF  SELECTNUM  -  "0" 

?  "ALL  PERSONNEL  DUE" . RTRIM(MIONAME) . "TRAINING 
As  of  ",  DATEO 

7 

?  "Name  Grade  " .M10NAME 

? 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

IF  MISC10  -  CTOD( "  ")  .OR.  (MISC10+FREQM10)  < 

DATEO 

?  LAST  NAME , F I RST_N AME . P AY^GRADE . MI SC 1 0 

? 

ENDIF 

SKIP 

ENDDO 

WAIT 

ENDIF 

SET  PRINT  OFF 

CLEAR 

ENDDO 

*  EOF:  MISCRPTS . PRG 
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Appendix  C:  Data  Entry  Screen  Forma  for  STMIS 


Base  Supply  Customer  Training  Record 


Last  Naee 

Social  Security  No. 

First  Naee 

*  -  Office  Syebol 

Pay  Grade 

Duty  Phone 

Training  Dates  (NN/DD/YY) 

BLOCK  1 

BLOCK  1 1 A 

BLOCK  IIB 

/  / 

/  / 

/  / 

ACCT  BLOCK  111  Test  Score 

BLOCK  IV 

/ 

/ 

1  1 

Press  RETURN  through  reeaining  fields,  or  press  Ctrl-End  when 

finished  entering  data  to  save  record. 

Ancillary  Training  Record 


Last  Naee 

First  Naae 

Grade 

DAS  /  / 

Soc  Security  No 

m  m 

Off  Sya 

Duty  Ph. 

AFSC 

Training  Dates  (NN/DO/YY) 

Nobility  Tea*  Heeber  (Y/N)  ? 

EOR 

SABC 

CNDT1 

CKDTR 

TOT 

/  / 

/  / 

/  / 

/  / 

1  1 

HUHINT 

OPSEC 

COflSEC 

PHY3EC 

TERROR 1SN 

1  1 

/  / 

1  1 

/  / 

t  1 

Press  Ctrl-End  when  finished  entering  data 
to  save  training  record. 


Miscellaneous  Training  Data  Record 

Last  Naae  First  Naae  Pay  Grade 

Social  Security  No.  -  -  Office  Syabol  Duty  Phone 

Training  Dates  IRH/DD/YY) 


STDS  COND 

UCHJ 

DLVRY  TRK 

PROT/PRES 

TORNADO 

/  / 

/  / 

/  / 

/  / 

/  / 

CRH  PREV 

CTRL  CNTR 

HURRICANE 

TYPIN6 

UNDEFINED 

/  / 

/  / 

/  / 

/  / 

/  / 

Press  Ctrl-End  uhen  finished  entering  data 
to  save  training  record. 
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